This should correct the problem
Private Sub CheckBox1_Click()

With CheckBox1
If .Value = True Then
Sheets("RENOVATION").Select
Range("B6:E6").FormulaR1C1 = "Leased"
Sheets("COVER").Select
Else
Sheets("RENOVATION").Select
Range("B6:E6").ClearContents
Sheets("COVER").Select

End If
End With

End Sub
You don't need to select the ranges.

If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




" wrote:

I have a spreadsheet set up where you would check a check box and a
value will pop into a cell on another sheet. If you uncheck it the
value will disappear. I keep getting an error that says "Identifier
under cursor is not recognized". Its in the line where it selects a
range of cells. What i'm I missing here?

Private Sub CheckBox1_Click()

With CheckBox1
If .Value = True Then
Sheets("RENOVATION").Select
Range("B6:E6").Select
ActiveCell.FormulaR1C1 = "Leased"
Sheets("COVER").Select
Else
Sheets("RENOVATION").Select
Range("B6:E6").Select
Selection.ClearContents
Sheets("COVER").Select

End If
End With
End Sub