I'm in the process of learning VBA and am having some troubles writing
an excel macro to find all instances of a word (usually in conjunction
with other words) and delete the row containing it

essentially I'd like row 5 below to do the following:

If Cell contains word *foo* OR *baz* then

such that it would find individual instances of foo and baz but also
foobar

Although overall a rather large macro, the code surrounding


1 Cells.Sort Key1:=Range("C1")
2
3 totalrows = ActiveSheet.UsedRange.Rows.Count
4 For Row = totalrows To 2 Step -1
5 IF CELLS(ROW, 3).VALUE = **FOO** OR CELL(ROW, 3).VALUE=
**BAZ** Then
6 Rows(Row).Delete
7 End If
8 Next Row

Thanks!

--Chris

Look in VBA's help for Like (and ucase).

IF ucase(CELLS(ROW, 3).VALUE) like **FOO** _
OR ucase(CELL(ROW, 3).VALUE) like **BAZ** Then

You may want to look at VBA's help for InStr, too.



wrote:

I'm in the process of learning VBA and am having some troubles writing
an excel macro to find all instances of a word (usually in conjunction
with other words) and delete the row containing it

essentially I'd like row 5 below to do the following:

If Cell contains word *foo* OR *baz* then

such that it would find individual instances of foo and baz but also
foobar

Although overall a rather large macro, the code surrounding

1 Cells.Sort Key1:=Range("C1")
2
3 totalrows = ActiveSheet.UsedRange.Rows.Count
4 For Row = totalrows To 2 Step -1
5 IF CELLS(ROW, 3).VALUE = **FOO** OR CELL(ROW, 3).VALUE=
**BAZ** Then
6 Rows(Row).Delete
7 End If
8 Next Row

Thanks!

--Chris

--

Dave Peterson