Microsoft Office Forums - View Single Post - How to replace a letter to random letter with different color?

gmayor · 06-18-2015, 02:25 AM

Change

Code:

    If Len(strChar) > 1 Or Not IsLetter(asc(strChar)) Then
        MsgBox "Enter a single character from the ranges A-Z or a-z only", vbCritical
        GoTo Start
    End If

to

Code:

    If Len(strChar) > 1 Then
        MsgBox "Enter a single character only", vbCritical
        GoTo Start
    End If

and the IsLetter function is no longer required