Private Sub Worksheet_SelectionChange

Pinball · May 1st, 2002, 01:08 AM

Is there similar code that will kick off a macro when any cell is selected in any worksheet in the entire workbook? Since new sheets will be added at any time, I cannot simply add the above Private Sub to all current worksheets.

I am looking for something like:

Private Sub Workbook_SelectionChange(ByVal Target As Excel.Range)

(although i know the above does not actually exist)

Tom Urtis · May 1st, 2002, 01:12 AM

You were close. The code line is

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Colo · May 1st, 2002, 01:15 AM

Hi. Please copy this into a ThisWorkbook module.
The event you want is already exist.



Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)

  MsgBox Sh.Name & " " & Target.Address(0, 0) & " are selected"

End Sub

May 1st, 2002, 01:12 AM	#2
Tom Urtis MrExcel MVP Join Date: Feb 2002 Location: San Francisco, California USA Posts: 10,388	You were close. The code line is Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) __________________ Tom Urtis Microsoft MVP - Excel

May 1st, 2002, 01:15 AM	#3
Colo MrExcel MVP Join Date: Mar 2002 Location: Kobe, Japan Posts: 1,420	Hi. Please copy this into a ThisWorkbook module. The event you want is already exist. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range) MsgBox Sh.Name & " " & Target.Address(0, 0) & " are selected" End Sub __________________ Regards, Masaru Kaji aka Colo - Ex Microsoft MVP Since 2004 -2009

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

May 1st, 2002, 01:08 AM	#1
Pinball Board Regular Join Date: Apr 2002 Posts: 107	Is there similar code that will kick off a macro when any cell is selected in any worksheet in the entire workbook? Since new sheets will be added at any time, I cannot simply add the above Private Sub to all current worksheets. I am looking for something like: Private Sub Workbook_SelectionChange(ByVal Target As Excel.Range) (although i know the above does not actually exist)