Martyn,

Here is some code

Dim i As Long
Dim cRows As Long

cRows = Cells(Rows.Count, "A").End(xlUp).Row
cRows = cRows - (cRows Mod 20)

For i = cRows To 20 Step -20
Cells(i, "A").EntireRow.Insert
Next i

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Martyn" wrote in message
...
Hi,
Wanna add a blank line to the worksheet after every 20 lines with a macro.
Can you suggest ways?
TIA

Change your clock first.

--
Don Guillett
SalesAid Software

"Martyn" wrote in message
...
Hi,
Wanna add a blank line to the worksheet after every 20 lines with a macro.
Can you suggest ways?
TIA

Hi,
Wanna add a blank line to the worksheet after every 20 lines with a macro.
Can you suggest ways?
TIA

Thanks a lot Bob,
it does the trick.


"Bob Phillips" wrote in message
...
Martyn,

Here is some code

Dim i As Long
Dim cRows As Long

cRows = Cells(Rows.Count, "A").End(xlUp).Row
cRows = cRows - (cRows Mod 20)

For i = cRows To 20 Step -20
Cells(i, "A").EntireRow.Insert
Next i

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Martyn" wrote in message
...
Hi,
Wanna add a blank line to the worksheet after every 20 lines with a
macro.
Can you suggest ways?
TIA