Hi,

Ok nows its all done. I figured it out. First I forgot to set my
WaitCleanupForm ShowModal to false, so the form was pretty much there forever. I also added some code to set the calculations to manual and then back to automatic. ( this helped a lot)

so here is my code now

[VBA]Sub Cleanup()

WaitCleanupForm.Show
WaitCleanupForm.Repaint

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual


Dim i As Long
For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
If Cells(i, 2).Value = "" Then
Select Case Cells(i, 1).Value
Case "Cookies", "Salt", "Pepper", ""
Case Else
Cells(i, 1).Resize(1).Delete xlShiftUp
End Select
End If
Next


'reset print area


If Range("A35") = "" Then

ActiveSheet.PageSetup.PrintArea = Range("A1:N34").Address
Else
ActiveSheet.PageSetup.PrintArea = Range("A1:N1", Range("A" & Rows.Count).End(xlUp)).Address
End If

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

WaitCleanupForm.Hide

End Sub [/VBA]

Oh I also had to repaint the form because the screenupdating set to flase was making it show up blank

Thank you so much for the help
This thread has been solved

The original thread can be found here