I have an ActiveCell, I want to add a row to where that active cell is 1

[coolcarls]

If the active cell is in A4, I would like a macro to add a complet row to row4. If next time the active cell is P451 then I need a whole row added to Row451.
Any ideas??
Thanks in advance
Carl

 

[ETID]

Rows(CStr(ActiveCell.Row) & ":" & CStr(ActiveCell.Row)).Insert Shift:=xlDown

 

[coolcarls]

Wow this place is great.
Thanks, that worked!!

 

[Pcfred]

I'm fairly new and just curious....

Why not just
ActiveCell.EntireRow.Insert

What's the cStr and stuff?

 

[Loomah]

Pcfred
There is no reason why you couldn't just use
ActiveCell.EntireRow.Insert

Also no reason why you couldn't use any of these
Rows(ActiveCell.Row & ":" & ActiveCell.Row).Insert Shift:=xlDown
Rows(ActiveCell.Row).EntireRow.Insert
Rows(ActiveCell.Row).Insert

Note that the first one is the same as ETID's solution without the CStr. They will all work! CStr simply converts the value (of ActiveCell.Row) to a string. I don't believe it's needed but at the same time it isn't incorrect to include it.

;-)

If a man says something and there are no women there to hear him, is he still wrong?
The faqs ma'am, just the faqs. Get the best from these forums : faq222-2244