...or this one-liner:

Public Sub Tester001()
Sheets("Standard Analysis").Range("A6").FormulaR1C1 = _
"=('Unit 2 Week 2 Test Standards An'!R[2]C)"
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc