Sub DeleteRow1() Dim myWorksheet As Worksheet For Each myWorksheet In ActiveWorkbook.Worksheets myWorksheet.Rows(1).delete Next myWorksheet End Sub