Build this into code: sets the formula to column C

MsgBox Left(Selection.FormulaR1C1, (Len(Selection.FormulaR1C1) - 4)) & 3


Dim cel as Range

Dim cel As Range

For Each cel In Selection
If Len(cel.FormulaR1C1) 4 Then
cel.FormulaR1C1 = Left(cel.FormulaR1C1, (Len(cel.FormulaR1C1) - 4))
& 3
End If
Next





--
steveB

Remove "AYN" from email to respond
"DejaVu" wrote in
message ...

I realize this may not be a programming question, but...
I've got a workbook with several sheets. On sheet 2, I have several
columns with the following formulas:
=Sheet1!C$674
=Sheet1!C$684
=Sheet1!C$694 ... etc

I'm wanting to copy these to another location. They are in Column D
(sheet2) currently, and I'm wanting to copy them to another location on
sheet2; Column C.

However whenever I copy them, the formulas change to:
=Sheet1!B$674
=Sheet1!B$684
=Sheet1!B$694 ... etc

Is there anyway to get them to stay the same?!?

Thanks in advance...

DejaVu


--
DejaVu
------------------------------------------------------------------------
DejaVu's Profile:
http://www.excelforum.com/member.php...o&userid=22629
View this thread: http://www.excelforum.com/showthread...hreadid=379440