I think this is simple, but I can't get it to work. I need to write a macro
to delete row 1 of all worksheets in a workbook. Can someone please help?
--
Thank you, Jodie

Right click sheet tab>select all sheets>delete on one deletes all

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"Jodie" <(E-Mail Removed)> wrote in message
news:9E1AEF56-DFFA-46F7-8ED9-(E-Mail Removed)...
>I think this is simple, but I can't get it to work. I need to write a
>macro
> to delete row 1 of all worksheets in a workbook. Can someone please help?
> --
> Thank you, Jodie

If there is a reason you need this in code (as opposed to Don's manual
method), use this code in your own macro...

Dim WS As Worksheet
.......
.......
For Each WS In ThisWorkbook.Worksheets
WS.Rows(1).Delete
Next

--
Rick (MVP - Excel)


"Jodie" <(E-Mail Removed)> wrote in message
news:9E1AEF56-DFFA-46F7-8ED9-(E-Mail Removed)...
>I think this is simple, but I can't get it to work. I need to write a
>macro
> to delete row 1 of all worksheets in a workbook. Can someone please help?
> --
> Thank you, Jodie

You could try :

For nCount = 1 To Sheets.Count
Worksheets(nCount).Rows("1:1").Delete shift:=xlUp
Next

--
If the post is helpful, please consider donating something to an animal
charity on my behalf.


"Jodie" wrote:

> I think this is simple, but I can't get it to work. I need to write a macro
> to delete row 1 of all worksheets in a workbook. Can someone please help?
> --
> Thank you, Jodie

Don, I was trying to write this in a macro. When I recorded the macro, it
included the names of the sheets. This would not work in my macro because
the sheet names would be different every time I use it.
--
Thank you, Jodie


"Don Guillett" wrote:

> Right click sheet tab>select all sheets>delete on one deletes all
>
> --
> Don Guillett
> Microsoft MVP Excel
> SalesAid Software
> (E-Mail Removed)
> "Jodie" <(E-Mail Removed)> wrote in message
> news:9E1AEF56-DFFA-46F7-8ED9-(E-Mail Removed)...
> >I think this is simple, but I can't get it to work. I need to write a
> >macro
> > to delete row 1 of all worksheets in a workbook. Can someone please help?
> > --
> > Thank you, Jodie
>
> .
>

Thanks Paul, this is exactly what I need.
--
Thank you, Jodie


"Paul" wrote:

>
> You could try :
>
> For nCount = 1 To Sheets.Count
> Worksheets(nCount).Rows("1:1").Delete shift:=xlUp
> Next
>
> --
> If the post is helpful, please consider donating something to an animal
> charity on my behalf.
>
>
> "Jodie" wrote:
>
> > I think this is simple, but I can't get it to work. I need to write a macro
> > to delete row 1 of all worksheets in a workbook. Can someone please help?
> > --
> > Thank you, Jodie

Rick, I needed the code to add to a macro that I wrote for other functions.
--
Thank you, Jodie


"Rick Rothstein" wrote:

> If there is a reason you need this in code (as opposed to Don's manual
> method), use this code in your own macro...
>
> Dim WS As Worksheet
> .......
> .......
> For Each WS In ThisWorkbook.Worksheets
> WS.Rows(1).Delete
> Next
>
> --
> Rick (MVP - Excel)
>
>
> "Jodie" <(E-Mail Removed)> wrote in message
> news:9E1AEF56-DFFA-46F7-8ED9-(E-Mail Removed)...
> >I think this is simple, but I can't get it to work. I need to write a
> >macro
> > to delete row 1 of all worksheets in a workbook. Can someone please help?
> > --
> > Thank you, Jodie
>
> .
>

>> For nCount = 1 To Sheets.Count
>> Worksheets(nCount).Rows("1:1").Delete shift:=xlUp
>> Next

If you are going to use this construction (as opposed to the For Each method
I posted), then you should change the Sheets.Count reference in the For
statement to Worksheets.Count; otherwise, if you have a Chart sheet in your
workbook, you will get an error as there will be more sheets than
worksheets.

--
Rick (MVP - Excel)


"Jodie" <(E-Mail Removed)> wrote in message
news:CF6819C5-184B-4257-83D2-(E-Mail Removed)...
> Thanks Paul, this is exactly what I need.
> --
> Thank you, Jodie
>
>
> "Paul" wrote:
>
>>
>> You could try :
>>
>> For nCount = 1 To Sheets.Count
>> Worksheets(nCount).Rows("1:1").Delete shift:=xlUp
>> Next
>>
>> --
>> If the post is helpful, please consider donating something to an animal
>> charity on my behalf.
>>
>>
>> "Jodie" wrote:
>>
>> > I think this is simple, but I can't get it to work. I need to write a
>> > macro
>> > to delete row 1 of all worksheets in a workbook. Can someone please
>> > help?
>> > --
>> > Thank you, Jodie