Hi

I want to loop through a number of ranges within a workbook. The
ranges all start Range and then are range1 and range2 etc I then want
to take any links out. I need to leave alone all other named ranges.

I am stuck !!


Sub TryThisOneAtHome()

Sheets("Sheet1").Select

For Each IntM In Names
If IntM.Name Like "Range*" Then
Range(IntM).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Else
End If
Next


End Sub

Help !!!

Kind Regards
Tim