Thanks J.

I learned the following trick from the link you sent:

    Dim nNum As Integer
    Dim str As String
    
    str = "d"
    
    nNum = (Range(str & "1").Column)
    
    MsgBox (nNum)
I will wrap that in a function and be on my way.

Thanks