Convert column alpha to numeric

Function used to convert column alpha to numeric
Author: michael@excelexperts.co.uk

Function mycollong(mycol As String) As Long

    If mycol <> vbNullString Then
        mycollong = Cells(1, mycol).Column
    Else
        mycollong = 0
    End If

End Function