|
|
#6
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
Code:
If Len(strChar) > 1 Then
MsgBox "Enter a single character only", vbCritical
GoTo Start
End If
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com 
|
| Tags |
| font color, random, replace all |
| Thread Tools | |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| how do i get the letter in the centre | rich_cirillo | Word | 3 | 03-09-2014 06:25 PM |
 Find and replace with a macro, problem with letter case
|
garcanrya | Word VBA | 2 | 01-10-2014 05:40 AM |
|
every letter different color
|
skan | Word VBA | 8 | 03-28-2013 04:16 AM |
|
Business letter
|
MK_Huef | Word | 1 | 03-27-2012 03:27 AM |
|
Replace is capitalizing the first letter of the first word
|
Beachhouse | Word | 1 | 02-07-2012 03:36 PM |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode