This code is not doing anything, but I do have a date 1/1/1900 in column E.
Am I missing something obvious?? THANK YOU!
Application.Calculation = xlManual Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("ur data") 'define which worksheet Dim LastRow As Long LastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).row Dim iRow As Long For iRow = LastRow To 1 Step -1 If ws.Cells(iRow, "E").Value = vbNullString Or ws.Cells(iRow, "E").Value = "1/1/1900" Then ws.Rows(iRow).Delete End If Next iRow Application.Calculation = xlAutomatic
Experts Exchange (EE) has become my company's go-to resource to get answers. I've used EE to make decisions, solve problems and even save customers. OutagesIO has been a challenging project and... Keep reading >>