error extraño en funcion

hola a todos

estoy intentando hacer una funcion que devuelva la letra de columna.
Aunque seguramente ya exista, es solo por practicar un poco.

mas o menos la tengo conseguida, pero aparte de darme un error, hace
una cosa a la que no acabo de encontrar causa->: estoy intentando poner
en la fila 1 de cada columna su letra y lo pone en todas excepto en la
columna "IA"(nº 235), que la deja en blanco. Da 'error en el metodo
range del objeto worksheet. sin embargo el contador si sube hasta 256 y
todas las demas columnas se rellenan.

seguro que es un fallo tonto, pero no lo veo. ahi van los codigos

Sub Probar_Ltr()
Dim nC As Single
With Hoja1
.[a1:iv1].Clear
For nC = 1 To 256
.Range(Letra_Columna(nC) & 5).Value = Letra_Columna(nC)
Next
End With
End Sub
Private Function Letra_Columna(ByVal nroCol As Single) As String
Dim nroPri As Single
If nroCol < 27 Then
Letra_Columna = Chr(64 + nroCol)
Exit Function
End If
If nroCol Mod 26 = 0 Then
nroPri = Int(nroCol / 26) - 1
Else
nroPri = Int(nroCol / 26)
End If
Letra_Columna = Chr(64 + nroPri) & Chr(65 + (nroCol Mod 26))
End Function

a ver si veis algo

un saludo y hasta pronto
Ivan