Macro to select 4 entire rows and then delete rows

Afternoon All,

Ive never written a macro before. So excuse me if this is dead simple.

With VBA how can I create a macro that when I select an entire row with the
mouse then run the macro. It selects the next 3 entire rows below then,
deletes these rows.

Any help will be appreciated,
Scott V

One way:

Public Sub Delete4Rows()
Selection.Resize(4).EntireRow.Delete
End Sub


In article <[email protected]>,
"Scott Viney" <[email protected]> wrote:

> Afternoon All,
>
> Ive never written a macro before. So excuse me if this is dead simple.
>
> With VBA how can I create a macro that when I select an entire row with the
> mouse then run the macro. It selects the next 3 entire rows below then,
> deletes these rows.
>
> Any help will be appreciated,
> Scott V

Hi Scott

This example will delete the activecell row and 3 rows below it

Cells(ActiveCell.Row, 1).Resize(4, 1).EntireRow.Delete


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Scott Viney" <[email protected]> wrote in message news:[email protected]...
> Afternoon All,
>
> Ive never written a macro before. So excuse me if this is dead simple.
>
> With VBA how can I create a macro that when I select an entire row with the mouse then run the macro. It selects the next 3
> entire rows below then, deletes these rows.
>
> Any help will be appreciated,
> Scott V
>

Thanks JE,

If I wanted it to say start a specific entire row, then from there delete 4
entire rows. Then move down a fixed number of rows then do the same thing
till it run out of data how would I go about this.

Scott
"JE McGimpsey" <[email protected]> escribió en el mensaje
news:[email protected]...
> One way:
>
> Public Sub Delete4Rows()
> Selection.Resize(4).EntireRow.Delete
> End Sub
>
>
> In article <[email protected]>,
> "Scott Viney" <[email protected]> wrote:
>
>> Afternoon All,
>>
>> Ive never written a macro before. So excuse me if this is dead simple.
>>
>> With VBA how can I create a macro that when I select an entire row with
>> the
>> mouse then run the macro. It selects the next 3 entire rows below then,
>> deletes these rows.
>>
>> Any help will be appreciated,
>> Scott V