troubleshooting Question

Run time error

Avatar of Euro5
Euro5Flag for United States of America asked on
VBAMicrosoft ExcelMicrosoft Office
23 Comments2 Solutions17 ViewsLast Modified:
Sometimes I get an error on this - it's just a find / replace. It does find it, but then the error.
The code is below - PLEASE HELP!!
Sub moveHV()
    Worksheets("HV").Activate
    
    Cells.Find(What:="60200 · Auto", After:=ActiveCell, LookIn:=xlFormulas2, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Application.CutCopyMode = False
    Selection.Cut
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    
        Cells.Find(What:="62200 · Marketing", After:=ActiveCell, LookIn:=xlFormulas2, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Application.CutCopyMode = False
    Selection.Cut
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    
            Cells.Find(What:="62500 · Office Expenses", After:=ActiveCell, LookIn:=xlFormulas2, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Application.CutCopyMode = False
    Selection.Cut
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    
                Cells.Find(What:="66000 · Utilities", After:=ActiveCell, LookIn:=xlFormulas2, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Application.CutCopyMode = False
    Selection.Cut
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    
End Sub
ASKER CERTIFIED SOLUTION
Join our community to see this answer!
Unlock 2 Answers and 23 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 2 Answers and 23 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros