Hi Alan,

I guess you are looking for -

Set ThisCommandButton = Me.OLEObjects(ThisButtonName)

Perhaps you might also want to declare the object variable,
Dim ThisCommandButton As OLEObject

I assume you have a reason for declaring your variables at module level.

Regards,
Peter T

"Alan Douglas" wrote in message
...
I want to create a piece of code that can refer to a specified command
button number

I have tried approaches like the following intiated by clicking Commmand
Button 4:

Dim ThisButtonNo As String
Dim ThisButtonName as string
Dim ThisCommandButton As Object

Private Sub CommandButton4_Click()
ThisButtonNo = "2"
ThisButtonName = "CommandButton" & ThisButtonNo
Set ThisCommandButton = ThisButtonName
ThisCommandButton.Enabled = True
End Sub

The problem is with the CommandButton object variable not set, but I don't
know what code/variables to use to do this.

Alan