<jgreen@enternet.com.au>De: John Green 
Objet: Re: Help with Macro Command
Date : lundi 20 septembre 1999 00:35

Hi Taik,

Try the following to insert new rows on every second line. The Mod 
construct is used to specify adjacent rows of different lengths to prevent 
Excel's converting rng to a contiguous range,

Sub InsertNewrows()
  dim rng As range
  dim i As long
  
  application.screenupdating = false
  set rng = cells(2, 1)
  for i = 3 to cells.Specialcells(xlLastCell).Row
    set rng = Union(rng, _
      range(cells(i, 1), cells(i, i Mod 256 + 1)))
  next i
  rng.EntireRow.Insert
end Sub

HTH,

John Green - Excel MVP
Sydney
Australia

In article <8NMehAADkX43EwT4@warners.demon.co.uk>, Taik P Chuah wrote:
><TPC@warners.demon.co.uk> From: Taik P Chuah 
> Newsgroups: microsoft.public.excel.programming
> Subject: Help with Macro Command
> Date: Fri, 17 Sep 1999 00:10:59 +0100
>  
>  
> I am trying to write a Macro so that it will insert a blank row on every
> other rows down a worksheet. i.e. I tried something like:
>  
> set myRow As Current Row
> select Row
> Insert Row
> then move down 2 rows
> select Row
> Insert Row
> and so on.
>  
> Wonder anyone in this group has any suggestion how best to go about
> doing it? I am a little stuck with the codes!
>  
> Thanks in advance.
> -- 
> Taik P CHUAH
> tpc@warners.demon.co.uk
>