Delete Row From Multiple Pages

I have a command box that I type a number into, when you type this number and hit "OK" it searches that sheet in column B for that number, if it finds that number it deletes it, if not close. This works perfectly. I have 7 other sheets however, and I want it to search those sheets as well for the same number (still in column B) at the same time, if found delete the row, if not keep going. I have it working on Sheet2 (laser) but every time it fails on Sheet3 (punch). The thing that kills me is it's the same code. I have tried numerous things but have had no success.

Code:
Private Sub CommandButton1_Click()
Const strDelete As String = "TextBox1.Value"

Dim DeleteValue As String
Dim rng As Range
Dim rng2 As Range

[Code] .........