Clear Cell Macro using an array

[Guest]

I'm trying to find a macro to clear cells with specific data found within.
I.E. Range A1D3000 and only clear cells in a range that contain
("110-115"). I.E. 70A110:70A0115. This is what I have
Sub MacroClearCell()

 

[Bob Phillips]

Bryan,

Try this alternative

Sub ClearCells()
Dim cell As Range
For Each cell In Range("A1D3000")
If (cell.Value Like "*110*" Or _
cell.Value Like "*111*" Or _
cell.Value Like "*112*" Or _
cell.Value Like "*113*" Or _
cell.Value Like "*114*" Or _
cell.Value Like "*115*") Then
cell.ClearContents
End If
Next cell
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Guest]

Bryan,

Try this alternative

Sub ClearCells()
Dim cell As Range
For Each cell In Range("A1D3000")
If (cell.Value Like "*110*" Or _
cell.Value Like "*111*" Or _
cell.Value Like "*112*" Or _
cell.Value Like "*113*" Or _
cell.Value Like "*114*" Or _
cell.Value Like "*115*") Then
cell.ClearContents
End If
Next cell
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)




This works Fine but is it possible to write the cell value as an array If (cell.Value Like "*110:515*" Or _ and still make it work