Excel VisualBasic Script

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