?Optimized...

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

--
Garry

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