Try the following code in a standard module:-
Dim MyArr As Variant
Dim x As Long
Dim a As Long
MyArr = Array("Sheet1", "Sheet2", "Sheet3")
a = Selection.Row
For x = LBound(MyArr) To UBound(MyArr)
Following is a link to my test work book for you to peruse:--
Please note that data in all rows in all sheets has to be in the same position for the code to work properly.
Select an ID number in Column A of Sheet 1, click on the Delete Rows button and the same row will be deleted from all sheets.
In the MyArr array, you can increase/decrease the number of sheets to suit your needs.
I hope that this helps.