Código:
Sub Irahoja1() Dim pepe As Boolean pepe = checkbox1.Value Sheets("hoja1").Select Range("A1").Select pepe = True End Sub