The Column property returns the column number of a single-cell range;
Sub column() MsgBox Sheets("Sheet1").range("F3").column End Sub