After the first range H9:H12, the rest are laid out nicely.
This may work for you:
Option Explicit
Sub testme()
Dim FromWks As Worksheet
Dim ToWks As Worksheet
Dim iRow As Long
Set FromWks = Workbooks("book1.xls").Worksheets("Sheet1")
Set ToWks = Workbooks("book2.xls").Worksheets("sheet1")
FromWks.Range("H9:H12").Copy
ToWks.Range("H9").PasteSpecial Paste:=xlPasteFormulas
For iRow = 44 To 764 Step 40
FromWks.Cells(iRow, "H").Resize(4, 1).Copy
ToWks.Cells(iRow, "H").PasteSpecial Paste:=xlPasteFormulas
Next iRow
End Sub
> Hi
> I have the 20 following ranges that has formulas and I need to copy them to
[quoted text clipped - 28 lines]
> range seperatly?
> Note: these formulas has to be copy to 25 diferent books.

Signature
Dave Peterson
Khalil Handal - 16 Aug 2007 17:05 GMT
Hi Dave,
I beleive in organaized work since it makes it easy when having problems.
It worked fine with me But I forgot the password for the VBA code so I had
to open a new workbook to use the code.
Do you have a way to get the password. I may eamil the file for you.
Tell me on my email address of khhandal AT yahoo.com
Thanks again
> After the first range H9:H12, the rest are laid out nicely.
>
[quoted text clipped - 55 lines]
>> range seperatly?
>> Note: these formulas has to be copy to 25 diferent books.
Dave Peterson - 16 Aug 2007 18:07 GMT
Nope. I don't have a password breaker.
> Hi Dave,
> I beleive in organaized work since it makes it easy when having problems.
[quoted text clipped - 68 lines]
> >
> > Dave Peterson

Signature
Dave Peterson