No sé le estoy dando vueltas y no sé poque me da ese error, te paso los dos códigos,
Hoja1
Código:
Private Sub checkbox1_click()
If CheckBox1 = True Then
Hoja2.checkbox1_click
End Sub
hoja2
Código:
Private Sub checkbox1_click()
If CheckBox1 = True Then
ActiveSheet.Shapes("Imagen 2").Visible = True
ElseIf CheckBox1 = False Then
ActiveSheet.Shapes("Imagen 2").Visible = False
End If
End Sub
No sé, no me parece díficil, debo ser muy torpe