VBA runs from developer but wont run from icon

[graudales]

Hello Everybody and thank you for your help in advance, I love Mr. excel.
Well I have done way more complex codes than this one but i hit the wall. I recorded a macro that hides current sheet and goes to main menu sheet, it runs fine when i open and run it with the developer but when I click the icon just jumps from one sheet to anotherone withot hidint the sheet. Is making me crazy cause is fine but why ust the go to order works but not the part of hiddind the sheet?
here is the code; I am sure I am missing some kind of simple setting and I cannot comprehend what is it, I havent been working for over 5 years and I am rusted.. any comment would be very welcome.


Sub Macro2()

Sheets("Chewy Private Label").Select
Sheets("chewy Private Label").Visible = False
Sheets("Menu Home").Select
Range("A10").Select
End Sub
Sub Macro3()

Sheets("Menu Home").Select
Sheets("Chewy Private Label").Visible = True
Sheets("Chewy Private Label").Select
Range("A6").Select
End Sub

 

[Craig_Moore]

ARE YOU USEING COMMAND BUTTONS ?

 

[graudales]

ARE YOU USEING COMMAND BUTTONS ?

No, I am using shapes..I thought I could assign a macro to any shape.

 

[Craig_Moore]

I've never used shapes with macros my self and wasn't aware you could so you have taught me something.
the below is what i use on my sheets but if you don't want people to be able to right click and unhide the sheets manually i would use =xlSheetVeryHidden

Worksheets("Chewy Private Label").Visible = xlSheetVisible
Worksheets("Menu Home").Visible = xlSheetHidden

Worksheets("Menu Home").Visible = xlSheetVisible
Worksheets("Chewy Private Label").Visible = xlSheetHidden

 

[yky]

Works on mine. I inserted two shapes, a rectangle and a circle, and assigned a macro to each. Since I don't have sheet names like yours, I just use index number. The macro hid and unhid sheets. I didn't check range.select behavior.

Sub Macro2()

Sheets(3).Select
Sheets(3).Visible = False
Sheets(1).Select
Range("A10").Select
End Sub
Sub Macro3()

Sheets(1).Select
Sheets(3).Visible = True
Sheets(3).Select
Range("A6").Select
End Sub