Hola como puedo ejecutar 1 macro a 2 hojas a la vez

Sub AñadirFila() Dim UltimaFila As Long Dim Contraseña As String Contraseña = "pinedo" ActiveSheet.Unprotect (Contraseña) Dalealplay UltimaFila = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row Range("D" & UltimaFila - 1).ListObject.ListRows.Add AlwaysInsert:=True ActiveSheet.Protect Contraseña, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True End Sub