How to get a message box to only appear once

[scotthannaford1973]

Hi

I have a very basic message box that appears when someone goes to a particular worksheet; however I only want it to appear once, so if someone clicks onto another worksheet and then back to the one with the message box, it doesn't reappear. Would be grateful for assistance



Private Sub Worksheet_Activate()

msgbox "Do Not Sort This Worklist"

End Sub

 

[RoryA]

Do you mean once ever, or once each time the workbook is used, or something else?

 

[scotthannaford1973]

Do you mean once ever, or once each time the workbook is used, or something else?

good question i.e.

each time the workbook opens and the user goes to the worksheet x, the message pops up, they then go to another worksheet and back to worksheet x, the message does not reappear. However, if they close and reopen the workbook, I want the single pop up again.

 

[RoryA]

In that case you could use a static variable:

Private Sub Worksheet_Activate()
Static counter as long
if counter = 0 then 
msgbox "Do Not Sort This Worklist"
counter = 1
end if
End Sub

 

[scotthannaford1973]

Private Sub Worksheet_Activate() Static counter as long if counter = 0 then msgbox "Do Not Sort This Worklist" counter = 1 end if End Sub

perfect - thanks, just what's required