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? and can I single out a worksheet so
as not to have the macro.
regards
Ditchy
 
B

Bob Phillips

Ditchy,

Probably better to use the Change event than the Select event, as the latter
shouldn't need a resize.

This code goes in tghe ThisWorkbook code module

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
sh.Columns("A:Z").EntireColumn.AutoFit
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)
 
D

ditchy

thank you Bob and KL for your help, it has solved my problem. Much
appreciated
Ditchy
 

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