Dim nme As Name

For Each nme In ActiveWorkbook.Names
If Left(nme.Name, 4) = "clr_" Then
Range(nme.Name).ClearContents
End If
Next nme


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

wrote in message
oups.com...
I have a workbook with approx. 30 named cells. They all start with
"clr_". I'm looking for some script that would look for all named cells
beginning with "clr_" and then go through to delete the content of that
named cell. for example "clr_projectname" would have the words "my
project name" and i would like the script to go through and delete the
words "my project name" from the cell and then go through looking for
the next name beginning with "clr_" and delete the contents of that
cell. HELPPPPPP PLZ.