Función para convertir un número de columna en su letra en Excel

Función VBA para convertir un número de columna en su nombre en letras, para usarlo en Excel.

Function numberToColumnName(ByVal colNumber As Integer) As String
   Dim dividend As Integer
   Dim columnName As String
   Dim module As Integer
   
   dividend = colNumber
   
   While (dividend > 0)
      module = (dividend - 1) Mod 26
      columnName = Chr(65 + module) + columnName
      
      dividend = (dividend - module) / 26
   Wend
   numberToColumnName = columnName
End Function