VBA Column Size

[Pinaceous]

Hi All,

I'm working with this code to make all worksheets of a workbook with columns A, B & C a specific size.

Sub ColumnPrep()
'

Dim wks           As Worksheet
  
  Application.ScreenUpdating = False
  For Each wks In Worksheets
    wks.Activate
    
    Range("A:A").Activate
    Selection.ColumnWidth = 8
    
    Range("B:B").Activate
    Selection.ColumnWidth = 15
    
    Range("C:C").Activate
    Selection.ColumnWidth = 35
    

  Next wks

   
End Sub

My question is now how do I exclude this code from acting on certain worksheets?

For example, how would I tell this code if the worksheets are named "DllBytes", "Sheet1" and "TOTALS" to skip this code from acting on it?



Thank you,
Pinaceous

 

[Michael M]

Try

Sub ColumnPrep()
Dim wks As Worksheet
  Application.ScreenUpdating = False
  For Each wks In Worksheets
    If wks.Name <> "DllBytes" And wks.Name <> "Sheet1" And wks.Name <> "TOTALS" Then
    wks.Activate
    Range("A:A").ColumnWidth = 8
    Range("B:B").ColumnWidth = 15
    Range("C:C").ColumnWidth = 35
  End If
  Next wks
End Sub

 

[Pinaceous]

Hi Michael M.,

That really worked out well! Thank you!

How could I add a specification to one of those sheets?

For example, to the TOTALS worksheet, how would I do something like:

If wks.Name"TOTALS" Then

Range("M:M").Activate
    Selection.ColumnWidth = 15

Many thanks,
Paul

 

[Michael M]

Sub ColumnPrep()
Dim wks As Worksheet
  Application.ScreenUpdating = False
  For Each wks In Worksheets
      If wks.Name = "TOTALS" Then
        wks.Activate
        Range("M:M").ColumnWidth = 15
    End If
    If wks.Name <> "DllBytes" And wks.Name <> "Sheet1" And wks.Name <> "TOTALS" Then
    wks.Activate
    Range("A:A").ColumnWidth = 8
    Range("B:B").ColumnWidth = 15
    Range("C:C").ColumnWidth = 35
  End If
  Next wks
End Sub

 

[Pinaceous]

Thanks Michael!

That's great coding!

- Paul