formulas with enbeded quotes

[l_eonandr]

Please help,
I am stuck trying to code to put a formula into a column of cells, the formula has enbeded quotes which seem to stop the line from running.

Cells(iRow, 2).Value = "=MID(G11,FindN(""" \ """,G11,$C$8),(CntPosLCh(G11,""" \ """)-FindN(""" \ """,G11,$C$8)+1))"
I have tried the double quotes but that doesn't work.
If I replace the formula with "test" the cells fill fine, so the first part of this line is ok. It's the quotes inside the formula that is the problem
and I have to have the quotes in the formula.

here is the Sub code the line is in;

Sub ListMyFiles(mySourcePath, IncludeSubfolders)
Set MyObject = New Scripting.FileSystemObject
Set mySource = MyObject.GetFolder(mySourcePath)

On Error Resume Next
For Each myFile In mySource.Files
iCol = 7
Cells(iRow, iCol).Value = myFile.Path
iCol = iCol - 3
Cells(iRow, iCol).Value = myFile.Name
iCol = iCol + 1
Cells(iRow, iCol).Value = myFile.Size
iCol = iCol + 1
Cells(iRow, iCol).Value = myFile.DateLastModified
Cells(iRow, 2).Value = "=MID(G11,FindN(""" \ """,G11,$C$8),(CntPosLCh(G11,""" \ """)-FindN(""" \ """,G11,$C$8)+1))"
iRow = iRow + 1

Next
If IncludeSubfolders Then
For Each mySubFolder In mySource.SubFolders
Call ListMyFiles(mySubFolder.Path, True)
Next
End If
End Sub

any help or suggestions are appreciated.

 

[sericom]

Cells(iRow, 2).Value = "=MID(G11,FindN("" \ "",G11,$C$8),(CntPosLCh(G11,"" \ "")-FindN("" \ "",G11,$C$8)+1))"

 

[l_eonandr]

Re: formulas with embeded quotes

ie;

Cells(iRow, 2).Value = "=MID(G11,FindN("" \ "",G11,$C$8),(CntPosLCh(G11,"" \ "")-FindN("" \ "",G11,$C$8)+1))"

Thanks but this I have already tried your line of code and it didn't work either, I don't know why thought it should have ... that is why I tried the double quotes in the formula I posted.
I did solve the problem by replacing the embedded " with Chr(34), and it worked wonderfully, though much longer formula than I would have liked. I would still like to find out why the above method, (your code line), did not work, I think it should have. Maybe I miss typed something, or maybe it needs the & sign to tie each piece together.
Anyway thanks for the effort and reply, much appreciated.

This is the code that worked;

Cells(iRow, 2).Value = "=MID(G11,FindN(" & Chr(34) & "\" & Chr(34) & ",G11,$C$8),(CntPosLCh(G11," & Chr(34) & "\" & Chr(34) & ")-FindN(" & Chr(34) & "\" & Chr(34) & ",G11,$C$8)+1))"