Variable value from named cell

[Robert]

I need to enhance the following code from JE Mcgimpsey (if not mistaken). nt.
The �4992� is to be made variable, ie. value from a cell named �RowCount�
which has the formula �=Rows()�.

Dim i As Long
For i = 2 To 4992 Step 26
Cells(i, 18).Resize(1, 30).Value = _
Cells(i + 25, 18).Resize(1, 30).Value
Next i
End Sub

Any assistance will be appreciated.
Thank you
--
Robert

[Norman Jones]

Hi Robert,

Try:

Dim i As Long
For i = 2 To Range("RowCount").Value Step 26
Cells(i, 18).Resize(1, 30).Value = _
Cells(i + 25, 18).Resize(1, 30).Value
Next i

---
Regards,
Norman



"Robert" <bobbell@discussions.microsoft.com> wrote in message
news:F14D8AE5-26F2-4D45-8B12-94D407DB6DE6@microsoft.com...
>I need to enhance the following code from JE Mcgimpsey (if not mistaken).
>nt.
> The "4992" is to be made variable, ie. value from a cell named "RowCount"
> which has the formula "=Rows()".
>
> Dim i As Long
> For i = 2 To 4992 Step 26
> Cells(i, 18).Resize(1, 30).Value = _
> Cells(i + 25, 18).Resize(1, 30).Value
> Next i
> End Sub
>
> Any assistance will be appreciated.
> Thank you
> --
> Robert

[Robert]

Thank you Norman. Have tested and incorporated.
--
Robert