We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
' Define Excel file to open Dim apExcel, wkBook, oSheet, RowCount As Long, iCount ' Create Excel object, set Workbook & Worksheets Set apExcel = CreateObject("Excel.Application") Set wkBook = apExcel.Workbooks.Open(sFileName) Set oSheet = apExcel.ActiveWorkbook.Worksheets(1) RowCount = oSheet.Rows.Count For iCount = RowCount To 1 Step -1 If oSheet.CountA(Selection.Rows(iCount)) = 0 Then oSheet.Selection.Rows(iCount).Delete End If Next iCount
Join the community of 500,000 technology professionals and ask your questions.