How to delete rows and tabs

[zombiemaster]

I used to know some of this stuff but have been out of the VBA game for a few years...sorry to have to ask such a simple question!

I have a workbook that gets created each day with varying numbers of rows each day. Column C will have a numeric value. I need to delete all the rows with a numeric value greater than zero.

I currently do this manually by sorting A>Z, find the first row in the list with a number greater than zero, then deleting all the rows below that, but want to include VBA to do this step for me.

ALSO, there are multiple tabs in the workbook, and I delete all of them except the first tab. Is there a way to delete all the tabs except the first one named "Original Data"?

Thanks for your help,
-=ZM=-

 

[zombiemaster]

Two codes below. The first deletes all sheets except the first. The second code deletes all sheets except "Original Data". Second would be safest I would say in case the order of sheets happens to have been changed.

Sub DeleteSheets_1()
  Dim i As Long
 
  Application.DisplayAlerts = False
    For i = Sheets.Count To 2 Step -1
      Sheets(i).Delete
    Next i
  Application.DisplayAlerts = True
End Sub

Sub DeleteSheets_2()
  Dim ws As Worksheet
 
  Application.DisplayAlerts = False
    For Each ws In Worksheets
      If ws.Name <> "Original Data" Then ws.Delete
    Next ws
  Application.DisplayAlerts = True
End Sub

Perfect! I was able to incorporate both sets of your code into my existing VBA and run it without any issues (had to eliminate one Dim WS, but that was to be expected). Thanks so much, this would have taken me all day to figure out!

-=ZM=-

 

[Peter_SSs]

You're welcome. Thanks for the follow-up.