Ciao,
potresti usare un codice del genere:
Sub Elimina_Righe()
Dim Riga As Long, Foglio As Worksheet
If Selection.Rows.Count > 1 Then
MsgBox "Selezionare una sola riga o una sola cella"
Exit Sub
End If
Riga = Selection.Row
For Each Foglio In Worksheets
Foglio.Range("A" & Riga).EntireRow.Delete
Next
End Sub
Questo elimina completamente la riga, se invece vuoi eliminare solo i valori della riga al posto di
Delete devi usare
ClearContents.
Ti lascio un file di esempio...
"Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."