How to format a cell using VBA

[Burrgogi]

Is there any better way to write this code? I'm very much of a VBA novice.

Sub FormatCell_test()
    Range("I1").VerticalAlignment = xlTop
    Range("I1").Select
    With Selection.Font
        .Name = "Calibri"
        .Size = 13
        .Bold = True
    End With
End Sub

I realize I'm working with 2 objects here, manipulating the font and changing the format of a cell. Just for my own enlightenment purposes, I'm wondering if there's a more efficient way to write the code.

 

[snjpverma]

Your code looks good, but you could simplify it and avoid using the Select method. Here's an updated version:

Sub FormatCell_test()
    With Range("I1")
        .VerticalAlignment = xlTop
        .Font.Name = "Calibri"
        .Font.Size = 13
        .Font.Bold = True
    End With
End Sub

 

[Burrgogi]

Your code looks good, but you could simplify it and avoid using the Select method. Here's an updated version:

Sub FormatCell_test()
    With Range("I1")
        .VerticalAlignment = xlTop
        .Font.Name = "Calibri"
        .Font.Size = 13
        .Font.Bold = True
    End With
End Sub

Ah, that's it. Thanks for the help.