Obj Variable or withblock variable not set?

[davegb]

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?

 

[Jim Cone]

You haven't told Excel what wksSummary refers to...
Set wksSummary = ActiveSheet
-or-
Set wksSummary = Worksheets("Summary").

However, if CommandButton1 is on Summary sheet and the
code is in that sheet's module then this will work...
("Me" is a reference to the sheet containing the module)
'--
Private Sub CommandButton1_Click()
Const PWORD As String = "dave"
Me.Unprotect password:=PWORD
Me.Range("B:C").ClearContents
Me.Range("A1").Select
End Sub
'--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)



"davegb"
wrote in message
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?

 

[davegb]

You haven't told Excel what wksSummary refers to...
Set wksSummary = ActiveSheet
-or-
Set wksSummary = Worksheets("Summary").

However, if CommandButton1 is on Summary sheet and the
code is in that sheet's module then this will work...
("Me" is a reference to the sheet containing the module)
'--
Private Sub CommandButton1_Click()
Const PWORD As String = "dave"
Me.Unprotect password:=PWORD
Me.Range("B:C").ClearContents
Me.Range("A1").Select
End Sub
'--
Jim Cone
San Francisco, USAhttp://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)

"davegb"
wrote in message
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?

Doh! Thanks, Jim.