troubleshooting Question

Delete empty row

Avatar of Rama Tito
Rama TitoFlag for Malaysia asked on
Microsoft Excel
4 Comments3 Solutions537 ViewsLast Modified:
Hi, I am calling this function from sheet1 to execute in sheet3 but its executing in sheet1. Please do advice
Sub DeleteEmptyRows()
    Dim LastRow As Long
    Dim r As Long
    
    LastRow = Sheet3.UsedRange.Row - 1 + Sheet3.UsedRange.Rows.Count
    Application.ScreenUpdating = False
    For r = LastRow To 1 Step -1
        If Sheet3.Application.WorksheetFunction.CountA(Rows(r)) = 0 _
          Then Rows(r).Delete
        
    Next r
End Sub
ASKER CERTIFIED SOLUTION
Saqib Husain
Engineer

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 3 Answers and 4 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 3 Answers and 4 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