I ill-advisedly added ' before a bunch of formulas because I wanted to move
the formulas between workbooks and have them reference the current workbook.
I thought that I would be able to find and replace the ' from the formula but
I am having trouble doing that. (I Believe it is char(39) FYI).

Does know of a way to remedy this.

Thanks,

Andy,

I tried this subroutine and it worked.

Sub test()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If Left(c.Value, 1) = "=" Then
c.Formula = c.Value
End If
Next c
End Sub



--

Hope that helps.

Vergel Adriano


"Andy" wrote:

I ill-advisedly added ' before a bunch of formulas because I wanted to move
the formulas between workbooks and have them reference the current workbook.
I thought that I would be able to find and replace the ' from the formula but
I am having trouble doing that. (I Believe it is char(39) FYI).

Does know of a way to remedy this.

Thanks,

That worked.

Does anyone happen to know of a way to circumvent this problem? By that I
mean a way to copy formulas from one workbook to another without having them
refer back to the original workbook.


"Vergel Adriano" wrote:

Andy,

I tried this subroutine and it worked.

Sub test()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If Left(c.Value, 1) = "=" Then
c.Formula = c.Value
End If
Next c
End Sub



--

Hope that helps.

Vergel Adriano


"Andy" wrote:

I ill-advisedly added ' before a bunch of formulas because I wanted to move
the formulas between workbooks and have them reference the current workbook.
I thought that I would be able to find and replace the ' from the formula but
I am having trouble doing that. (I Believe it is char(39) FYI).

Does know of a way to remedy this.

Thanks,

I'd use the same technique as you did--but with a different string:

Select all the cells
edit|replace
what: = (equal sign)
with: $$$$$=
replace all.

Then do the copy.

When you're done, you can reverse the edit|replace.

The choice of using the apostrophe was your Achille's heal.



Andy wrote:

That worked.

Does anyone happen to know of a way to circumvent this problem? By that I
mean a way to copy formulas from one workbook to another without having them
refer back to the original workbook.

"Vergel Adriano" wrote:

Andy,

I tried this subroutine and it worked.

Sub test()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If Left(c.Value, 1) = "=" Then
c.Formula = c.Value
End If
Next c
End Sub



--

Hope that helps.

Vergel Adriano


"Andy" wrote:

I ill-advisedly added ' before a bunch of formulas because I wanted to move
the formulas between workbooks and have them reference the current workbook.
I thought that I would be able to find and replace the ' from the formula but
I am having trouble doing that. (I Believe it is char(39) FYI).

Does know of a way to remedy this.

Thanks,

--

Dave Peterson