With Sheets("Revised-CashOut")
.Range("H5:H50).Formula = _
Sheets("Formulas").Range("D5").Formula

End With

--
Regards,
Tom Ogilvy



"JMay" wrote:

I have a formula in Cell D5 on SheetName Formulas as follows:

=IF(MID(E5,LEN(E5)-1,1)="A","Kel Tech",IF(MID(E5,LEN(E5)-1,1)="B","South
Star",IF(MID(E5,LEN(E5)-1,1)="C","White
Rodgers",IF(MID(E5,LEN(E5)-1,1)="D","GRI",IF(MID(E5,LEN(E5)-1,1)="E","Graybar",IF(MID(E5,LEN(E5)-1,1)="F","Guest
Room",""))))))

It currently on the Formulas WS shows up as #Value! - but it is exactly
what I need to paste into my Cell D5 on SheetName Revised-CashOut
and actually I need to Fill D6:D50 with the relative (row 5) to 6:50

My current code line (which I need help with is (and it is not working):

With Sheets("Revised-CashOut")
..Range("H5:H50).Formula = "=" & Sheets("Formulas").Range("$D$5").value
&"

Can someone assist me in getting the syntax right?

TIA,

Jim May