Article ID: 199301
Article Last Modified on 10/22/2000
-and-
-and-
Sub makeFormula()
With ActiveSheet
.TransitionFormEntry = True
.Range("A1").Value = 1
.Range("A2").Value = 2
.Range("A2").Name = "A2Range"
.Range("A3").Formula = "=sum(A1,$A2Range)"
.TransitionFormEntry = False
End With
End Sub
Sub makeFormulaA1Ref()
With ActiveSheet
.TransitionFormEntry = True
.Range("A1").Value = 1
.Range("A2").Value = 2
.Range("A3").Formula = "=sum(A1,A2)"
.TransitionFormEntry = False
End With
End Sub
Sub makeFormulaNamedRef()
With ActiveSheet
.TransitionFormEntry = True
.Range("A1").Value = 1
.Range("A1").Name = "P3D"
.Range("A2").Value = 2
.Range("A2").Name = "P4D"
.Range("A3").Formula = "=sum($P3d,$P4D)"
.TransitionFormEntry = False
End With
End Sub
Additional query words: XL97
Keywords: kbbug kbdtacode kbpending KB199301