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