Modüldeki kodu aşağıdaki ile değiştiriniz.
Public Function Harf(Sn As Long)
On Error Resume Next
Dim GSira1, GSira2 As Integer
GSira1 = IIf(([Sn] - (26 * ([Sn] \ 26))) = 0, "26", ([Sn] - (26 * ([Sn] \ 26))))
GSira2 = IIf([GSira1] = 26, ([Sn] \ 26) - 1, ([Sn] \ 26))
If GSira2 = 0 Then
Harf = Chr(64 + Sn)
Else
Harf = Chr(64 + GSira2) & Chr(64 + GSira1)
End If
Harf = StrConv(Harf, vbLowerCase)
End Function
Modülün uygulanmış hali ektedir.