Sub DelRows()
Dim ws As Worksheet, Sh As Worksheet
Dim StrDel As String, C As Range
Dim Lr As Long, Ls As Long
Dim NamShet As Variant, i As Integer
Set ws = Sheets("name_list")
Lr = ws.Range("A" & Rows.Count).End(xlUp).Row
StrDel = ActiveCell.Value
NamShet = ws.Range("A2:A" & Lr).Value
For i = 1 To UBound(NamShet, 1)
Set Sh = Sheets(NamShet(i, 1))
Ls = Sh.Range("A" & Rows.Count).End(xlUp).Row
For Each C In Sh.Range("A2:S" & Ls)
If C.Value = StrDel Then
C.Resize(1, 3).Delete
End If
Next
Next
End Sub