this compiles, only i don't know what the asterisks mean in the line i
commented out. you need to reference sheet6 like i have it.
but i still don't know if it will actually run



If Worksheets("Sheet6").Range("F49") = 0 Then
If Worksheets("Sheet6").Range("F59").Text = _
Worksheets("Sheet6").Range("F50").Text Then
MsgBox ("Application has been successfully activated"), vbApplicationModal,
_
"Message"
'Unlock Boxes code goes here
Else
Sheet7.Select
Dim rng As Range
Dim i As Long
Const sAdd As String = "A100:A129"
Const NumOfButtons As Long = 30
Dim OleObj As OLEObject
'Set rng = *Me.Range*(sAdd).Resize(NumOfButtons)
For i = 1 To NumOfButtons
With Me.OLEObjects("Commandbutton" & i).Object
If rng(i).Value < "" Then
Locked = True

Else
Locked = False
End If
End With

Next i
End If
End If

--


Gary


"peter.thompson"
<peter.thompson.21yqny_1137810601.7468@excelforu m-nospam.com wrote in
message news:peter.thompson.21yqny_1137810601.7468@excelfo rum-nospam.com...

I'm trying to use the following code from a userform to lock up
commandbuttons on a worksheet. I get a compile error "method or data
member not found, where indicated in red. I'm sure I'm doing something
basically wrong, any help appreciated.

Cheers

Peter

If Sheet6.Range("F49") = 0 Then
If Sheet6.Range("F59").Text = Sheet6.Range("F50").Text Then
MsgBox ("Application has been successfully activated"),
vbApplicationModal, "Message"
'Unlock Boxes code goes here
Else
Sheet7.Select
Dim rng As Range
Dim i As Long
Const sAdd As String = "A100:A129"
Const NumOfButtons As Long = 30
Dim OleObj As OLEObject
Set rng = *Me.Range*(sAdd).Resize(NumOfButtons)
For i = 1 To NumOfButtons
With Me.OLEObjects("Commandbutton" & i).Object
If rng(i).Value < "" Then
Locked = True
Else
Locked = False
End If
End With
Next i


--
peter.thompson
------------------------------------------------------------------------
peter.thompson's Profile:
http://www.excelforum.com/member.php...o&userid=29686
View this thread: http://www.excelforum.com/showthread...hreadid=503565