workbook macro help

[ditchy]

Hello there, I would like some help with a macro that I need to run in
a workbook. this is the macro.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Columns("A:Z").EntireColumn.AutoFit
End Sub
what or how do I get it to work for every worksheet in the workbook, I
currently place the macro in each worksheet which is very time
consuming. Is there a way to place the macro in the workbook so all
worksheets have the autofit macro?
regards
Ditchy

 

[KL]

Hi ditchy,

Try putting the following code into the ThisWorkbook module (replace the
names of the sheets to single out as necessary).
Rgards,
KL

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
For Each s In ThisWorkbook.Worksheets
Select Case s.Name
Case "Sheet1", "Sheet2" 'Single out sheets 1 and 2.
Case Else: s.Columns("A:Z").EntireColumn.AutoFit
End Select
Next s
End Sub