Convert column numeric to alpha

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

Function mycolalpha(mycol As Long) As String

    Dim myarray As Variant

    If mycol > 0 Then
        myarray = Split(Cells(1, mycol).Address(True, False), "$")
        mycolalpha = myarray(0)
    Else
        mycolalpha = ""
    End If

End Function