Maybe try this revised version (not tested):
Dim SiteCol As Range, Cell As Object Set SiteCol = Range("B1:B" & Range("B" & Rows. Count).End(xlUp).Row) For Each Cell In SiteCol If Cell.Value Like "MyValue*" Then Cell.EntireRow.Copy Windows("MacroWorkbook.xls").Activate Sheets("Import File").Select Range("A"& Rows.Count).End(xlUp).Offset(1, 0).Paste End If Next
Please consider:
Thanking those who helped you. Click the star icon in the lower left part of the contributor's post and add Reputation.
Cleaning up when you're done. Mark your thread [SOLVED] if you received your answer.
"Run-time error '438': Object doesn't support this property or method"
on this line:
Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Paste
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks