Message Box to appear only once upon activating worksheet

[jollux]

Hi,

I want a box to pop up when a worksheet is activated to alert the user to delete the sheet if they are not using it. So far I have:

[vba]Private Sub Worksheet_Activate()
MsgBox "Not using Census Data? Delete this tab!", vbInformation + vbOKOnly, "WARNING"
End Sub[/vba]

I'm feeling a bit stupid - but how to I get the alert to appear ONLY once, and not every time the worksheet is activated in that session?

Cheers
-Clueless

 

[Joe4]

I'm feeling a bit stupid - but how to I get the alert to appear ONLY once, and not every time the worksheet is activated in that session?

One way is to update a cell on that sheet with the current date, and check that before showing the message, i.e.

[COLOR=#333333]Private Sub Worksheet_Activate()
[/COLOR]    If Range("Z100") <> Date Then
[COLOR=#333333]        MsgBox "Not using Census Data? Delete this tab!", vbInformation + vbOKOnly, "WARNING"
        Range("Z100") = Date
[/COLOR]    End If
[COLOR=#333333]End Sub[/COLOR]