Hi jxc,
Try this:
Private Sub CommandButton1_Click()
LastRow = ActiveSheet.Range("A" & Rows.count).End(xlUp).row
For i = 5 To LastRow
If Cells(i, 1) = "100 MALLARD COVE" Then
Range(Cells(i, 1), Cells(i, 18)).Select
Selection.Copy
Dim wb As Workbook
For Each wb In Workbooks
If wb.Name = "MasterServiceHistories.xlsx" Then GoTo NextDim
Next
Workbooks.Open FileName:="S:\FREDDIE MAC\Billing\MasterServiceHistories.xlsx"
NextDim:
Dim p As Integer, q As Integer
p = Worksheets.count
For q = 1 To p
If ActiveWorkbook.Worksheets(q).Name = "100 MALLARD COVE" Then
Worksheets("100 MALLARD COVE").Select: Exit For
End If
Next q
eRow = ActiveSheet.Cells(Rows.count, 1).End(xlUp).Offset(1, 0).row
ActiveSheet.Cells(eRow, 1).Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.CutCopyMode = False
End If
Next i
End Sub
BTW - Your last code tag needs a leading whack i.e. [/CODE]
Bookmarks