Here is a VBA function that converts a column reference to a column index.

Function ColRef2ColNo(ColRef As String) As Integer    
      ColRef2ColNo = 0
     On Error Resume Next
   ColRef2ColNo = Range(ColRef & "1").Column
End Function