Slette en hel række (samme række) i flere arkfaner

Et lille hint.

Hvis du har ens ark, så kan du markere flere ark på ark-fanerne nederst.
Hold Ctrl nede, men du klikker på arkene eller Shift for at vælge alle mellem først valgte ark og næste.

Du kan se, at fanerne bliver markeret.

Det du gør på det aktive ark, sker også på alle de andre markerede.
Står du fx i række 11 og sletter rækken, så slettes rækkes også på alle de andre markerede ark.

Ja, det er det som jeg gerne vil ind i en makro, da brugerne f.eks ikke altid husker at holde Ctrl nede

En bruger herinde lavede en makro til mig, som gjorde nogenlunde det du siger:
http://kronsell.net/Smaamakroer.htm#INDSRK

F. eks. denne makro:

Sub DeleteRows()
Dim Ws As Worksheet
x = ActiveCell.Row
For Each Ws In ActiveWorkbook.Worksheets
Ws.Rows(x).EntireRow.Delete
Next Ws
Sheets("Sheet1").Range("B4").Select
End Sub

Tak for hjælpen Jens48 - Sendt et "svar". Jeg har brugt dit forslag i et beskyttet ark, hvor brugerne har mulighed for at indsætte og slette bestemte rækker. Den endelige ser således ud:

Sub DeleteRows()

'Fjern beskyttelse fra alle ark
Dim s As Worksheet
For Each s In ActiveWorkbook.Sheets
s.Unprotect "Password"
Next s

Dim Ws As Worksheet
x = ActiveCell.Row
For Each Ws In ActiveWorkbook.Worksheets
Ws.Rows(x).EntireRow.Delete
Next Ws
Sheets(1).Range("c10").Select 'her har jeg lavet en lille rettelse

'Beskytter alle ark
For Each s In ActiveWorkbook.Sheets
s.Protect "Password"
Next s

End Sub

Et svar