Workbook_Open() Error

M

Minitman

Greetings,

I am attempting to turn one CommandButton visible and to make another
one not visible when I open my workbook. What I am getting is a
Visual Basic error message:

Run-time error '424'
Object required

This is what I tried in "ThisWorkbook" (the * is the line
highlighted by Debug):

Private Sub Workbook_Open()

Sheets("Enter").Select
* CommandButton1,Visible = True
CommandButton2,Visible = False
Range("AP2").Select

End Sub

Anyone see what is wrong with code?

Any help would be most appreciated.

TIA

-Minitman
 
S

Slawek Czyzak

Hi



Sheets("Enter").Activate
ActiveSheet.CommandButton1.Visible = True
ActiveSheet.CommandButton2.Visible = False
Range("AP2").Select


Slawek(Poland)
 
B

Bob Phillips

You need a dot separator not comma, and you have to qualify the button with
the sheet

Private Sub Workbook_Open()

Sheets("Enter").Select
ActiveSheet.CommandButton1.Visible = True
ActiveSheet.CommandButton2.Visible = False
Range("AP2").Select

End Sub

or

Private Sub Workbook_Open()

With Sheets("Enter").
.Activate
.CommandButton1.Visible = True
.CommandButton2.Visible = False
.Range("AP2").Select
End With

End Sub


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
M

Minitman

Hey Ron,

Good catch on the typo. That, however, is not the problem (I typed
the code rather then copied). Do you see any other possibilities?
 
Top