workbook macro help


D

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
 
Ad

Advertisements

K

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top