This is the code:

Private Sub CommandButton1_Click()
Const PWORD As String = "dave"
Dim wksSummary As Worksheet

wksSummary.Unprotect password:=PWORD <---- OBJ VAR NOT SET
Range("B:C").Select
Selection.ClearContents
Range("A1").Select


End Sub

This worked fine in a previous macro, but not today. Any ideas why
it's not recognizing wksSummary or password? Or is it something else?