VBA Code
 

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

VBA Code
 

If you meant Check_load.xls

call the macro from the workbook_open event.

If you are not familiar with events, then see
Chip Pearson's page http://www.cpearson.com/excel/events.htm

--
Regards,
Tom Ogilvy

Steved wrote in message
...
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

VBA Code
 

Thanks Tom

Yes I ment xls
-----Original Message-----
If you meant Check_load.xls

call the macro from the workbook_open event.

If you are not familiar with events, then see
Chip Pearson's page
http://www.cpearson.com/excel/events.htm

--
Regards,
Tom Ogilvy

Steved wrote in
message
...
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



.