[DarleneMiles]

I have a macro that will delete rows that contain the word "Delete" (the data is sorted so that the word "Delete" is last). The problem I've run into is that not always will there be a word "Delete" and then my macro blows up. Can someone please help me put an IF statement around this code?

Code:

Columns("I:I").Select
Selection.Find(What:="Delete", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete

Your help is appreciated!

[Yeroon]

OK here ya go. Note that the rows with deleted in column i should always be sorted at the bottom!

Code:

Sub test()

    On Error GoTo myerror

    Columns("I:I").Select

    Selection.Find(What:="Delete", After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False).Activate

    ActiveCell.Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.EntireRow.Delete

Exit Sub
myerror:

    If myerror.Number = 91 Then
        Resume Next
    End If


End Sub

[DarleneMiles]

Thank you so much! What does the number error 91 mean?

Also, would you be able to help me with another macro, please? Our IT department does not have time to help me.

The code below always refers to the workbook "WMR 2.0 Template Phase 2.xls". What we really need is a macro that would copy these tabs into a workbook that has a specific name (i.e., This Workbook.xls). How can I copy tabs from another workbook and put in a workbook that has been named something other than "Active Workbook Template"? Thanks so much for any help you can provide!

Code:

Workbooks.Open Filename:= _
"C:\Performance Template.xls", UpdateLinks:=0, ReadOnly:=True
Sheets(Array("LCData1", "Returns1")).Select
Sheets(Array("LCData1", "Returns1")).Copy before:=Workbooks( _
"Active Workbook Template.xls").Sheets("BlankTab")

[Yeroon]

What does the number error 91 mean?

You can get the description like this. In this case it just checks if the selection is set to something. If it is Nothing then error 91 happens. We catch the error and resume.

Code:

    If myerror.Number = 91 Then
        MsgBox myerror.Description
        Resume Next
    End If

Will get back to you on your second question

[DarleneMiles]

Thank you, you are too kind!

[Yeroon]

Code:

Workbooks.Open Filename:= _
"C:\Performance Template.xls", UpdateLinks:=0, ReadOnly:=True
Sheets(Array("LCData1", "Returns1")).Select
Sheets(Array("LCData1", "Returns1")).Copy before:=Workbooks(1).Sheets("BlankTab")

You can give an index for the workbook you need, starting with 1 being the first workbook. Does that help you with your problem?