Well, if you delete part of a named range, it is certainly going to get
deleted or altered!

Can you use ClearContents rather than Delete?

--

Vasant

"Todd Huttenstine" wrote in message
...
Hey guys

This code deletes cells but it also deletes named ranges.
Is there anyway to protect my ranges where this does not
happen?


Dim found As Range
If CheckBox4.Value Then
Set found = Worksheets(1).Range("A4:Z4").Find(
_
What:=ComboBox1.Value, _
After:=Worksheets(1).Range("Z4"), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
MatchCase:=False)
If Not found Is Nothing Then _
found.Resize(97, 1).Delete Shift:=xlToLeft
End If