I have a workbook with 3 worksheets in it. The worksheets are named -
Meat-Page 1, Meat-Page 2, Cheese. When the workbook is opened an automatic
pop-up message box appears. The workbook is always opened to the first tab
(Meat-Page 1). Is there a way that if the user changes to Tab 2 (Meat-Page
2) the pop-up message appears again by just switching tabs? I want to make
this workbook idiot proof which I am finding out is not easy. Thanks for the
help.

In the worksheet code area of each sheet, include the following event macro:

Private Sub Worksheet_Activate()
MsgBox ("This is your complementary message:" & Chr(10) & "You look great
today!")
End Sub
--
Gary''s Student - gsnu200826


"patsy" wrote:

I have a workbook with 3 worksheets in it. The worksheets are named -
Meat-Page 1, Meat-Page 2, Cheese. When the workbook is opened an automatic
pop-up message box appears. The workbook is always opened to the first tab
(Meat-Page 1). Is there a way that if the user changes to Tab 2 (Meat-Page
2) the pop-up message appears again by just switching tabs? I want to make
this workbook idiot proof which I am finding out is not easy. Thanks for the
help.

hi
would have been helpful if you had posted more like the code used to open
ect but vaguely...
you can use the worksheet_Activate event to cause a message to pop up.
Private Sub Worksheet_Activate()
MsgBox "this is a pop up message"
End Sub

regards
FSt1

"patsy" wrote:

I have a workbook with 3 worksheets in it. The worksheets are named -
Meat-Page 1, Meat-Page 2, Cheese. When the workbook is opened an automatic
pop-up message box appears. The workbook is always opened to the first tab
(Meat-Page 1). Is there a way that if the user changes to Tab 2 (Meat-Page
2) the pop-up message appears again by just switching tabs? I want to make
this workbook idiot proof which I am finding out is not easy. Thanks for the
help.

No such thing as idiot-proof. Idiot's are too ingenious...

Assuming you're using the Workbook_Open() event to fire your message
box, you can use the workbook's Workbook_SheetActivate() event or each
individual sheet's Sheet_Activate() event as well.

In article ,
patsy wrote:

I have a workbook with 3 worksheets in it. The worksheets are named -
Meat-Page 1, Meat-Page 2, Cheese. When the workbook is opened an automatic
pop-up message box appears. The workbook is always opened to the first tab
(Meat-Page 1). Is there a way that if the user changes to Tab 2 (Meat-Page
2) the pop-up message appears again by just switching tabs? I want to make
this workbook idiot proof which I am finding out is not easy. Thanks for the
help.

Open the VBA editor (Alt+F11).
Find your code that you have previously entered (probably on the
ThisWorkbook sheet)

Change it to:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox "Your message goes here"
End Sub
--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*


"patsy" wrote:

I have a workbook with 3 worksheets in it. The worksheets are named -
Meat-Page 1, Meat-Page 2, Cheese. When the workbook is opened an automatic
pop-up message box appears. The workbook is always opened to the first tab
(Meat-Page 1). Is there a way that if the user changes to Tab 2 (Meat-Page
2) the pop-up message appears again by just switching tabs? I want to make
this workbook idiot proof which I am finding out is not easy. Thanks for the
help.