最強！列番号！

xl_VBA

Function cNo(Optional ByVal clmS As String, Optional ByVal wsNm As String) As Long
　　If wsNm = "" Then wsNm = ActiveSheet.Name
　　If cNo = "" Then clmS = "A"
　　Dim ws As Worksheet: Set ws = Worksheets(wsNm)
　　cNo = ws.Range(clmS & 1).Column
End Function

cNo("F")

で、Ｆ列の列番号が扱えます。