How can a formula be capture in a variable?

[MPW]

Hey,

I need to trap the formula instead of the value of a cell into a variable.
I was trying something like this.

Dim cf, cv
If Range("A1").HasFormula = True Then
    cf = Range("A1").Formula
ElseIf Range("A1").HasFormula = False Then
    cv = Range("A1").Value
End If

Ideas?

 

[njimack]

Dim cf as String
cf = Range("A1").Formula

If A1 contains a formula, this will be held in cf (as a string). If A1 contains a constant or text, this will be held in cf.

 

[jmthompson]

Sub getForm()
Dim cf, cv
If Range("A1").Formula Like "=*" Then
    cf = Range("A1").Formula
Else
    cv = Range("A1").Value
End If
End Sub

 

[MPW]

Sorry about that, I left that out of the Dim Statement.
It didn't help though.

I agree that it should work.
It gives me a runtime error.

 

[MPW]

The HasFormula = True statement actually works pretty good.

I do think I found my problem.

I was reproducing the formula from one workbook to another. The original workbook was protected. I didn't think it would matter since I wasn't changing it but apparently I was wrong.

Thanks for taking the time.