Tips de Excel: Mostrar u ocultar información de un cuadro de texto con VBA

Sub btnMuestra_Haga_clic_en()
If Worksheets("Hoja1").Shapes("MJP").Visible = True Then
Worksheets("Hoja1").Shapes("MJP").Visible = False
ElseIf Worksheets("Hoja1").Shapes("MJP").Visible = False Then
Worksheets("Hoja1").Shapes("MJP").Visible = True
End If

End Sub

[luisorozco]

Hola ¿y cómo se crea el cuadro rojo, es un cuadro de texto o se crea con macros o cómo se hizo?