Hi,

I am trying to paste my VLOOKUP formula down & am getting the following
error:

Run time error 438 - Object dosent support this property or method.

The VLookup works in the first cell (B2) but is not copied down to to
the rest of the cells in column B.

This is my code......

Worksheets("Group 40").Activate

Set CurrentCell = Range("A2")
Do While Not IsEmpty(CurrentCell)
Set CurrentCell = CurrentCell.Offset(0, 1)
Set NextCell = CurrentCell.Offset(1, 0)

Range("B2").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-1], '[Reportable
Accounts.xls]Sheet1'!R1C1:R1147C2,1,FALSE)"
CurrentCell.Copy
Selection.Paste
Application.CutCopyMode = False
Set CurrentCell = NextCell

Loop


I would like to copy the VLOOKUP Formula to the rest of the cells in
column B does anyone have any suggestions?

Thanks



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/