I just created a button on my Sheet1 and assigned a Macro to it.
When I right-click on this button - I see in my NameBox "Button 1"
without the quotes.

In my Workbook_Open code I want to HIDE this button.
1st What is the code to include in the WB_Open code to do this?

After performing another procedure using VBA, what line near the bottom
of that code would make my Button 1 visible?

Or is it best to to Only load the Button at the end of the above procedure?

TIA,

Jim

Hi

Sheets("Sheet1").Shapes("Button 1").Visible = False

'Your code

Sheets("Sheet1").Shapes("Button 1").Visible = True

Mike

"JMay" wrote:

I just created a button on my Sheet1 and assigned a Macro to it.
When I right-click on this button - I see in my NameBox "Button 1"
without the quotes.

In my Workbook_Open code I want to HIDE this button.
1st What is the code to include in the WB_Open code to do this?

After performing another procedure using VBA, what line near the bottom
of that code would make my Button 1 visible?

Or is it best to to Only load the Button at the end of the above procedure?

TIA,

Jim

Mike Thanks alot.

I NOW have:

Private Sub Workbook_Open()
Sheets("Sheet1").Shapes("Button 1").Visible = False
Call Main
End Sub

Sub Main()
Dim res As String
res = MsgBox("Do you need help" & vbNewLine & "from your supervisor?",
vbQuestion + vbYesNo, "The Question of the Day")
If res = vbYes Then
.....

But As I now Close and reopen the file the Command button is visible
UNTIL I complete the Message box (Which seems to grab focus before the
statement line Sheets("Sheet1").Shapes("Button 1").Visible = False
How can I modify this so the Button is not visible until AFTER the
completion of the Message Box?


"Mike H" wrote:

Hi

Sheets("Sheet1").Shapes("Button 1").Visible = False

'Your code

Sheets("Sheet1").Shapes("Button 1").Visible = True

Mike

"JMay" wrote:

I just created a button on my Sheet1 and assigned a Macro to it.
When I right-click on this button - I see in my NameBox "Button 1"
without the quotes.

In my Workbook_Open code I want to HIDE this button.
1st What is the code to include in the WB_Open code to do this?

After performing another procedure using VBA, what line near the bottom
of that code would make my Button 1 visible?

Or is it best to to Only load the Button at the end of the above procedure?

TIA,

Jim

Mike, Sorry - It's Working

\I jimped the GUN -- THANKS!!


"Mike H" wrote:

Hi

Sheets("Sheet1").Shapes("Button 1").Visible = False

'Your code

Sheets("Sheet1").Shapes("Button 1").Visible = True

Mike

"JMay" wrote:

I just created a button on my Sheet1 and assigned a Macro to it.
When I right-click on this button - I see in my NameBox "Button 1"
without the quotes.

In my Workbook_Open code I want to HIDE this button.
1st What is the code to include in the WB_Open code to do this?

After performing another procedure using VBA, what line near the bottom
of that code would make my Button 1 visible?

Or is it best to to Only load the Button at the end of the above procedure?

TIA,

Jim