Excel VisualBasic Script

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