' getColumnLetter
Public Function getColumnLetter(columnNumber As Integer)
getColumnLetter = _
Left( _
Cells(1, columnNumber).Address(1, 0) _
, InStr( _
1 _
, Cells(1, columnNumber).Address(1, 0) _
, "$" _
) - 1 _
)
End Function
No comments:
Post a Comment