Excel VisualBasic Script

Sub columnRange()
    MsgBox Sheets("Sheet1").range("A:F3").column
End Sub