Hola, no comprendo lo del error, si habilitando la sentencia:ActiveSheet.Shapes.Range(Array("1 Rectangle")).Select
Se forza a que el rectangulo éste siempre selecionado cuando se aplica valores al objeto:With Selection.ShapeRange.Fill con esto se evita que se éste indicando que se seleccione el objeto.
Debes ver además la sentencia on error...Pero si insistes en ese proceder, esto te puede ayudar: Sub ROJO() Dim Forma As Object Set Forma = Selection If TypeName(Forma) <> "Range" Then MsgBox "Está Seleccionado", 64, "" With Forma.ShapeRange.Fill ... ver debate
