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


