I want to run a procedure when a user clicks on a worksheet. The code should
be something like

Private Sub workbook_SheetActivate(ByVal Sh As Object)
MsgBox Sh.Name
End Sub

I've tried putting this in a module and underneath the sheets to no avail.
Where should I put this code if I want it to run when a worksheet is clicked
and active?
--
M. Shipp

--
---
Regards,
Norman



"SHIPP" wrote in message
...
I want to run a procedure when a user clicks on a worksheet. The code
should
be something like

Private Sub workbook_SheetActivate(ByVal Sh As Object)
MsgBox Sh.Name
End Sub

I've tried putting this in a module and underneath the sheets to no avail.
Where should I put this code if I want it to run when a worksheet is
clicked
and active?
--
M. Shipp

In ThisWorkbook (since it is a workbook event)
--
- K Dales


"SHIPP" wrote:

I want to run a procedure when a user clicks on a worksheet. The code should
be something like

Private Sub workbook_SheetActivate(ByVal Sh As Object)
MsgBox Sh.Name
End Sub

I've tried putting this in a module and underneath the sheets to no avail.
Where should I put this code if I want it to run when a worksheet is clicked
and active?
--
M. Shipp

Since you're using the Workbook_ version, put it under ThisWorkbook.


SHIPP wrote:

I want to run a procedure when a user clicks on a worksheet. The code should
be something like

Private Sub workbook_SheetActivate(ByVal Sh As Object)
MsgBox Sh.Name
End Sub

I've tried putting this in a module and underneath the sheets to no avail.
Where should I put this code if I want it to run when a worksheet is clicked
and active?
--
M. Shipp

--

Dave Peterson

Hi SHIPP,

You need to move the code to the ThisWorkbook module.


---
Regards,
Norman



"SHIPP" wrote in message
...
I want to run a procedure when a user clicks on a worksheet. The code
should
be something like

Private Sub workbook_SheetActivate(ByVal Sh As Object)
MsgBox Sh.Name
End Sub

I've tried putting this in a module and underneath the sheets to no avail.
Where should I put this code if I want it to run when a worksheet is
clicked
and active?
--
M. Shipp

You have received several answers, but
For more information on events

http://www.cpearson.com/excel/events.htm

--
Regards,
Tom Ogilvy


"SHIPP" wrote in message
...
I want to run a procedure when a user clicks on a worksheet. The code
should
be something like

Private Sub workbook_SheetActivate(ByVal Sh As Object)
MsgBox Sh.Name
End Sub

I've tried putting this in a module and underneath the sheets to no avail.
Where should I put this code if I want it to run when a worksheet is
clicked
and active?
--
M. Shipp