Hi Andreas,

Am Mon, 4 Apr 2011 09:34:24 -0700 (PDT) schrieb AndreasHermle:

Is it possible to ADD a ZERO before the SINGLE digit named ranges
(using VBA) so that they look like as follows: range01, range02, ...
range09 ... . Ranges named range10, range11 .... range40 etc. are to
be left untouched.

Sub RangeNames()
Dim rngName As Name

For Each rngName In ThisWorkbook.Names
If Len(rngName.Name) = 6 Then
rngName.Name = Left(rngName.Name, 5) & _
Format(Right(rngName.Name, 1), "00")
End If
Next
End Sub


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2