Access same Worksheet_SelectionChange from multiple sheets

[kpierce]

Hello:
I have created a workbook with 5 identical sheets. I am utilizing the following functions:
Worksheet_SelectionChange
Worksheet_Change

Instead of having this VBA code in each sheet, is it possible to put this code in a module and then in the sheet, just tell it to run the function in the module. ie, one copy of the VBA code for the entire workbook.

The issue I am having is, when I update the VBA code, I have to replicate it out to each sheet.

Any advice is greatly appreciated.

Thanks
kpierce

 

[Alan_P]

Hi kpierce,

Looks like you would have to put the code in the "ThisWorkbook" section and use the below Sub types

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

End Sub

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

End Sub

Difficult to know exactly though without seeing the code...

Hope this helps,
Cheers,
Alan.