Message Box

[Roopen]

Hi All,

Is there a way that I could have a message box appear if a user of my excel spreadsheet goes to different tabs?

I currently have the following appear on the model when the workbook is opened but want to have different message on each tab they select

Private Sub Workbook_Open()
MsgBox "Please note that 3% Salary Increases have been added from July!", vbInformation
End Sub

 

[Sektor]

Use SheetActivate in ThisWorkbook module.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   ' Some code
End Sub

 

[Roopen]

Hi,

Sorry for sounding a little thick... I have used the code you have supplied and come up with the below... It doesnt seem to work though!!

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox "Please note that 3% Salary Increases have been added from July!", vbInformation
End Sub

 

[oggy3000]

Hey Roopen,
the code works, you have to insert it into the "ThisWorkbook" Module in the VBA editor.

If you just want to have the message pop up for certain sheets you can either use this code and insert it into the Sheet modules

Private Sub Worksheet_Deactivate()
MsgBox "Please note that 3% Salary Increases have been added from July!", vbInformation
End Sub

(It lets the msg pop up everytime the user leaves the sheet)

Or this, which does the same when the sheet is entered.

Private Sub Worksheet_Activate()
MsgBox "Please note that 3% Salary Increases have been added from July!", vbInformation
End Sub

Cheers
Jan

 

[Sektor]

You want message box pop up when user selects sheet. What's wrong with my code?

 

[Roopen]

Hi Jan,

Both options work a treat and provides me with additional warning messages... Thank you so much for the detailed response

Regards

Roopen