Excel - Escribir en celda y que se imprima una autoforma

Amigos, necesito la siguiente ayuda

En la Hoja1 cuando escriba cualquier carácter (letras o numero) en alguna celda, por ejemplo en la A1, en la Hoja2 se active la impresión de una autoforma que ya tengo puesta, como por ejemplo un “rectangulo 1”. Cuando dicha celda de la hoja1 este en blanco, la autoforma de la hoja2 no se debe imprimir.

Muchas gracias

Muy buenas,

pues si te he entendido, creo que te puede valer la siguiente macro:

Private Sub worksheet_change(ByVal target As Range)
If target = Range("A1") Then
If target.Value = "" Then
Sheets("Hoja2").Select
ActiveSheet.Shapes("Rectangle 1").Select
Selection.PrintObject = False
Else
Sheets("Hoja2").Select
ActiveSheet.Shapes("Rectangle 1").Select
Selection.PrintObject = True
End If
End If
End Sub

Un saludo. Juanjo.