Delete the first row of every worksheet

I simply need to delete the first row of every worksheet in an Excel workbook.
LVL 3
thomasd04Asked:
Who is Participating?
 
Rory ArchibaldConnect With a Mentor Commented:
Manually, you can select the first sheet, hold Shift and click the last sheet tab, then delete the first row.
In code:
Sub DelRow1()
   Dim wks as Worksheet
   For each wks in activeworkbook.worksheets
      wks.rows(1).delete
   next wks
End sub

Open in new window

0
 
thomasd04Author Commented:
Thanks! The VB code worked perfectly.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.