Delete rows from multiple sheets based on value from dropdown box

[jimmisavage]

Hi,
On my Home sheet I have a dropdown box in cell E26. I've created a button just above this box so a user can delete some information.

I need a macros to assign to my button, that will search sheets 'Breakfast' 'Lunch' 'Dinner' and 'Snacks' and delete any row that has the text the user chose from the dropdown box in cell E26. This text will appear in column A on the sheets (if its there at all).

Many thanks
Stuart

 

[SteveO59L]

something along the lines of

Sub Delete_Rows()
Application.ScreenUpdating = False
Dim lr As Long
Dim w As Long
Dim ws As Worksheet
Dim del_val As String

del_val = Range("e26").Value



For Each ws In Worksheets

If ws.Name = "Breakfast" Or ws.Name = "Lunch" Then

ws.Activate

lr = Range("a" & Rows.Count).End(xlUp).Row

For w = lr To 2 Step -1
If Cells(w, "A").Value = del_val Then
Cells(w, "A").EntireRow.Delete
End If
Next w
End If
Next ws
Application.ScreenUpdating = True
End Sub