If Not Range("F16").HasFormula Then
Select Case Range("F4").Value
Case 1: Range("F16").Copy Range("G16")
Case 2: Range("F16").Copy Range("H16")
End Selec t
End If

--
HTH

Bob Phillips

"Defoes Right Boot" wrote in
message ...
I need to run a macro from a button which will copy the contents of cell
F16
ONLY if it is text rather than a formula. (Basically the default value of
the
cell is a formula but the user can overwrite the formula if required - if
they do this I then need to copy their input to another cell.) The
destination cell is also dependent upon the value in cell F4.

I can't seem to get anywhere at all with this - if anyone can help would
be
very much appreciated!

Thanks

Phil