optælling af bogstaver

Eksempel:
Private Sub testRange()
Rem Test celle, der bestemmer range - eks. A10
    R = Range("A10")
    If IsNumeric(R) = True Then
        bogstav = Chr(64 + R)          '3-tal konverteres til C
    Else
        bogstav = R
    End If
End Sub

Jo det virker efter hensigten, men hvad nu hvis range 27 lang, så skal den jo hedde AA

Rem Dækker 1 - 52 -> A - AZ
Private Sub testRange()
Rem Test celle, der bestemmer range - eks. A10
Dim bogstav
    bogstav = ""
   
    r = Range("A10")
    If IsNumeric(r) = True Then
        If r > 26 Then
            bogstav = "A" + TilChr(r - 26)
        Else
            bogstav = bogstav + TilChr(r)
        End If
    Else
        bogstav = r
    End If
End Sub
Private Function TilChr(tal)
    TilChr = Chr(64 + tal)
End Function

Rem Dækker 1 - 255 = A - IV
Private Sub testRange()
Rem Test celle, der bestemmer range - eks. A10
Dim bogstav
    bogstav = ""
    x = 64
   
    r = Range("A10")
    If IsNumeric(r) = True Then
        If r > 26 Then
            While r > 26
                x = x + 1
                r = r - 26
            Wend
       
            bogstav = Chr(x) + TilChr(r)
        Else
            bogstav = bogstav + TilChr(r)
        End If
    Else
        bogstav = r
    End If
End Sub
Private Function TilChr(tal)
    TilChr = Chr(64 + tal)
End Function

Nogen afklaring?