My Goal:
Run a Macro that will scan a worksheet and if the word "Accounting" is not
in the "M" column of a Row then delete that Row.

Here is what I have now. It scans the Worksheet but does not delete the rows:

Sub Make_one_sheet_per_dept()
'
' Make_one_sheet_per_dept Macro
' Macro recorded 6/2/2008 Totals each department onto it's own worksheet.
'
'
Sheets("Accounting").Select
Dim rngTotal As String
For i = 5000 To 1 Step -1
rngTotal = Range("M" & i).Select
rngTotal = Range("M" & i).Value
'rngTotal = Trim(rngTotal)
If rngTotal = "<>Accounting" Then
Rows(ActiveCell.Row).Select
Selection.Delete shift:=x1Up
End If
Next i
End Sub

Thanks Will

Sub Make_one_sheet_per_dept()
Dim rngTotal As String

With Sheets("Accounting")

For i = 5000 To 1 Step -1

If .Range("M" & i).Value <> "Accounting" Then

.Rows(i).Delete
End If
Next i
End With
End Sub



--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Will" <(E-Mail Removed)> wrote in message
news:A51EF3C4-B4F1-4F50-89AD-(E-Mail Removed)...
> My Goal:
> Run a Macro that will scan a worksheet and if the word "Accounting" is not
> in the "M" column of a Row then delete that Row.
>
> Here is what I have now. It scans the Worksheet but does not delete the
> rows:
>
> Sub Make_one_sheet_per_dept()
> '
> ' Make_one_sheet_per_dept Macro
> ' Macro recorded 6/2/2008 Totals each department onto it's own worksheet.
> '
> '
> Sheets("Accounting").Select
> Dim rngTotal As String
> For i = 5000 To 1 Step -1
> rngTotal = Range("M" & i).Select
> rngTotal = Range("M" & i).Value
> 'rngTotal = Trim(rngTotal)
> If rngTotal = "<>Accounting" Then
> Rows(ActiveCell.Row).Select
> Selection.Delete shift:=x1Up
> End If
> Next i
> End Sub
>
> Thanks Will