How to use text value when using an array to copy

[KatyJohn]

help needed

I'm trying to copy cells that are text references to other cells. How can I copy the text value and not the formula of a cell and pass it along in an array

FromRng is an array of referenced cells
ToRng is the destination


Dim FromRng, ToRng
Dim i As Integer


FromRng = Array("BI22", "BI23", "BI24", "BI25", "BI26", "BI27", "BI28", "BI29", "BI31")
ToRng = Array("B12", "B15", "B16", "B17", "B18", "C20", "F21", "B23", "C45")
For i = LBound(FromRng) To UBound(FromRng)

Workbooks("2009 Quote Form.xlsm").Sheets("Module Number Entry").Range(FromRng(i)).Copy Destination:=Workbooks(NewQuoteFile).Sheets(IntroLetter).Range(ToRng(i))
Next i

 

[VoG]

Try

Dim FromRng, ToRng
Dim i As Integer
FromRng = Array("BI22", "BI23", "BI24", "BI25", "BI26", "BI27", "BI28", "BI29", "BI31")
ToRng = Array("B12", "B15", "B16", "B17", "B18", "C20", "F21", "B23", "C45")
For i = LBound(FromRng) To UBound(FromRng)
    Workbooks("2009 Quote Form.xlsm").Sheets("Module Number Entry").Range(FromRng(i)).Copy
    Workbooks(NewQuoteFile).Sheets(IntroLetter).Range(ToRng(i)).PasteSpecial Paste:=xlPasteValues
Next i

 

[KatyJohn]

VoG

Thanks Again.

katyjohn