I need a macro to delete rows in various worksheets

[simonjames]

I have an Excel workbook, which is an order form using tick boxes, if "ticked"(true)the item seleted data appears into other worksheets. If it returns "" (blank)then I want to delete the blank rows in various other worksheets within the workbook.

Can someone please help with some code I have the following code which will work in 1 worksheet but i can not get it to do the same in the other worksheets

Sub Deleterow()
Dim rngstart As Range
Dim rngend As Range
Dim n As Integer
 
'set start of data column "A"
 
Set rngstart = Range("a1")
 
'set end of data column "A"
 
Set rngend = Range("a10")
 
'working from bottom totop
 
For n = rngend.Row To rngstart.Row Step -1
 
'test valve in column A
 
If Range("A" & CStr(n)).Value = False Then
 
'match words and delete
 
Range("A" & CStr(n)).EntireRow.Delete
 
End If
 
Next n
 
End Sub

[Guido Geurs]

You have to go to each sheet like:

Sub Deleterow()
Dim rngstart As Range
Dim rngend As Range
Dim n As Integer
Dim SHEETidx As Integer
   For SHEETidx = 1 To Sheets.Count
      Sheets(SHEETidx).Activate
      'set start of data column "A"
      Set rngstart = Range("a1")
      'set end of data column "A"
      Set rngend = Range("a10")
      'working from bottom totop
      For n = rngend.Row To rngstart.Row Step -1
         'test valve in column A
         If Range("A" & CStr(n)).Value = False Then
            'match words and delete
            Range("A" & CStr(n)).EntireRow.Delete
         End If
      Next n
   Next SHEETidx
End Sub

[simonjames]

Thank you Guido, it does just what i wanted.
Many thanks