Open a message box if a worksheet is opened

  • Thread starter Thread starter MichaelRLanier
  • Start date Start date
M

MichaelRLanier

This is a 2 parter. I need a simple macro that states how many times
a worksheet has been opened today. I want the results to reflect in
cell A1. Then when A1>0 (as the sheet is opened), I need a message
box to open to display a simple sentence which can then be closed by
clicking an OK button. Here's thanking you in advance.

Michael
 
Private Sub Worksheet_Activate()

With Me.Range("A1")

If .Value > 0 Then

MsgBox "Sheet opened " & .Value & " times", vbOKOnly
.Value = .Value + 1
End If
End With
End Sub



'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.
 
Back
Top