Clear Cell Macro using an array
I'm trying to find a macro to clear cells with specific data found within.
I.E. Range A1:DD3000 and only clear cells in a range that contain
("110-115"). I.E. 70A110:70A0115. This is what I have
Sub MacroClearCell()
Dim myCell As Range
Dim myArray As Varient
myArray = Array(***110***:***115***)
Set my Cell = Range("A:E").Find(What:=myArray _ )
LookIn:=xlFormulas, _
LookAt:=xlPart)
While Not myCell Is Nothing
myCell.ClearContents
Set myCell = Range("A:E").FindNext
End Sub
|