By using booksticle.com you agree to our cookie policy, We and our partners operate globally and use cookies, for multiple purposes

ColumnLetter

Function ColumnLetter(ColumnNumber As Long) As String
t = Cells(1, ColumnNumber).Address
t = Replace(t, "$1", "")
t = Replace(t, "$", "")
ColumnLetter = t
End Function