Double Quotes

[Philosophaie]

First I want to generate a formula to copy a formula. There is a formula in "A1":
"=Function1(x,y,z)".

I want to put this formula into something I can use generating into this form:
Sheets("Sheet1").Range("A1") = "=Function1(x,y,z)"

This is what I need to write in order to get the above result:

Sheets("Sheet1").Range("D1") = "Sheets("Sheet1").Range("A1")=" & """ & Sheets("Sheet1").Range("A1") & """

The only problem is getting the double quotes. Any suggestions?

 

[SillyCat]

To put are double qoute in a string you double it up. So for example

SillyCat says "Hi!"

Would become:

SillyCat says ""Hi!""

So if I understand what you want correctly your line would become:

Sheets("Sheet1").Range("D1") = "Sheets(""Sheet1"").Range(""A1"")=" & """" & Sheets("Sheet1").Range("A1") & """"