Can I add two "With Selections"?

[mayankgo]

How do I make this all in 12 lines? I don't think it is possible without adding the with selections

Range("A1").Select    With Selection.Font
        .Size = 36
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
    End With
    With Selection.Interior
        .ThemeColor = xlThemeColorDark2
    End With

 

[mayankgo]

Thn I think I should go for basic recording but advanced programming so that I'll be familiar with both.

Thanks a lot! Great site.

 

[mayankgo]

Thn I think I should go for basic recording but advanced programming so that I'll be familiar with both.

Thanks a lot! Great site.