This function will return column name if you input column number.
for example if you want to get column name of 100 th column
you can use ReturnColumnName(100)
Answer will be CV
Function ReturnColumnName(ByVal number As Integer) As String
ReturnColumnName = Split(Cells(, number).Address, "$")(1)
End Function