View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Bryan@KN Bryan@KN is offline
external usenet poster
 
Posts: 1
Default 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