Contador de acceso a la hoja

hola, Joaquín !

¿Se puede crear un contador que se incremente en una unidad cada vez que accedo a una hoja o abro un libro?
¿Se puede visualizar este contador en la misma hoja?

copia las siguientes lineas en el modulo de codigo del libro [ThisWorkbook]
[se incrementara en uno el valor de 'A1' de cada hoja cada vez que la 'actives']
[se incrementara en uno el valor de 'B1' en la "Hoja1" cada vez que abras el libro]
Private Sub Workbook_Open()
With Worksheets("Hoja1").Range("b1")
.Value = .Value + 1
End With
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If TypeName(Sh) <> "Worksheet" Then Exit Sub
With Sh.Range("a1")
.Value = .Value + 1
End With
End Sub

saludos,
hector.