Private Sub Worksheet_Activate()
With Activesheet.Range("A1")
.Value = .Value + 1
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.

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"Kelzina" wrote in message
...
hi,
i need to write a subroutine that will count the number of times a
worksheet
is selected. so everytime the worksheet is selected i need to add one to
the
value in Cell A1... the only line of code i was given is...

range("A1")=range("A1")+1
can anyone help???
thanx

--
"The difference between Possible and Impossible is the measure of ones
will"