Set up excel pop message for every worksheet in VBA

[BMD44]

Hi,

I have an excel workbook with 3 sheets.

I have created Private Sub Workbook_Open() in 'ThisWorkbook' with popup message. This message is displayed when I open the workbook with main sheet 'Details'

Private Sub Workbook_Open()
Set sh = This workbook.Sheets("Details")
MsgBox " Company details are refreshed"
End Sub

However, I have another sheet in my workbook 'Submit'. I need a pop up message when I open 'Submit' worksheet.

Can anyone please help me how can we have pop up message for multiple sheets in addition to the main sheet defined the in 'The Workbook'.

Thanks in advance.

 

[Logit]

The macro goes in the Sheet Module

Option Explicit

Private Sub Worksheet_Activate()
    MsgBox ....
End Sub

 

[BMD44]

Thank you! That works

 

[Logit]

You are welcome.