Eagles, try this
' This macro deletes all rows on the active worksheet
' that have 1034, 1035, 1037 column E.
Dim rng As Range, cell As Range, del As Range
Set rng = Intersect(Range("E:E"), ActiveSheet.UsedRange)
For Each cell In rng
If (cell.Value) = "1034" _
Or (cell.Value) = "1035" _
Or (cell.Value) = "1037" Then
If del Is Nothing Then
Set del = cell
Else: Set del = Union(del, cell)
On Error Resume Next
"Eagles!" <G...@noreply.com> wrote in messagenews:email@example.com...
> Good morning. Was hoping someone could help me with a small problem. I
> have a rather large macro that feeds from a single data sheet of roughly
> 5,000 rows. The problem is this - There are a few rows of data I'd like
> exclude prior to the macro manipulating the data.
> To be more specific, each row has a 4 digit product type in column E.
> How can I search the data, and eliminate the rows with these 3 product
> Thank you!
> Go Eagles!
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.