VBA Code

  • Thread starter Thread starter Steved
  • Start date Start date
S

Steved

Hello from Steved
I used the below function posted earlier
My question is when I open check_load.exe
how do I get this to run automatically

Sub Test()
Dim r As Long
Application.ScreenUpdating = False
With Worksheets("check_load")
For r = .UsedRange.Rows.Count To 1 Step -1
If .Cells(r, "B").Value = "0" Then .Rows(r).Delete
If .Cells(r, "B").Value = "8" Then .Rows(r).Delete
If .Cells(r, "B").Value = "9" Then .Rows(r).Delete
If .Cells(r, "B").Value = "-" Then .Rows(r).Delete
If .Cells(r, "A").Value = "sum" Then .Rows(r).Delete
Next
End With
Application.ScreenUpdating = True
End Sub
 
Back
Top