Eduard Caballero respondió:
Acá tienes Private Sub Workbook_Open() Sheets(1).Select If Range("A1") < Range("A2") Then ActiveSheet.Shapes.Range(Array("Autoforma1")).Select With Selection.ShapeRange.Fill .ForeColor.RGB = RGB(255, 0, 0) End With End If End Sub Recuerda que debes...