Optimizing macro for formatting different ranges

[tjdickinson]

I have a relatively long macro which I am trying to optimize for efficiency. In a number of places, there is code such as:

    ' Format Name header
        If ActiveSheet.Name <> "Toezicht" Then
            With Range("A1")
                .Interior.ThemeColor = xlThemeColorDark2
                .Font.Name = nameHeaderFont
                .Font.Size = nameHeaderSize
                .Font.ThemeColor = xlThemeColorLight2
                .RowHeight = nameHeaderHeight
            End With
        Else
            With Range("A1, A6, A11, A16")
                .Interior.ThemeColor = xlThemeColorDark2
                .Font.Name = nameHeaderFont
                .Font.Size = nameHeaderSize
                .Font.ThemeColor = xlThemeColorLight2
                .RowHeight = nameHeaderHeight
            End With
        End If

which applies the same format to different ranges depending on the Sheet name. I feel like this could be optimized both visually and for the running of the code, but I'm not sure how to do it.

Thanks for any help you can offer!

 

[Fluff]

How about

   Dim Rng As Range
    ' Format Name header
      If ActiveSheet.Name <> "Toezicht" Then Set Rng = Range("A1") Else Set Rng = Range("A1,A6,A11,A16")
      With Rng
          .Interior.ThemeColor = xlThemeColorDark2
          .Font.Name = nameHeaderFont
          .Font.Size = nameHeaderSize
          .Font.ThemeColor = xlThemeColorLight2
          .RowHeight = nameHeaderHeight
      End With

 

[tjdickinson]

How about

   Dim Rng As Range
    ' Format Name header
      If ActiveSheet.Name <> "Toezicht" Then Set Rng = Range("A1") Else Set Rng = Range("A1,A6,A11,A16")
      With Rng
          .Interior.ThemeColor = xlThemeColorDark2
          .Font.Name = nameHeaderFont
          .Font.Size = nameHeaderSize
          .Font.ThemeColor = xlThemeColorLight2
          .RowHeight = nameHeaderHeight
      End With

Sorry for the delayed reaction--I got sidetracked while implementing it throughout the code. It works great. Thanks!

 

[Fluff]

Glad to help & thanks for the feedback.