Howdy.
I am trying to use write some code to write code for
variable storage.
The below code is from Chip's site, with slight changes.
When writing, i get the following message, highlighting
the first "DataArray"
Compile Error
Expected: end of statement.

Any help would be greatly appreciated.
Cheers.
Russell.

-----------------------------------------
Sub AddDCAProc()
Dim NewCodeModule As CodeModule
Dim LineNum As Long
Set NewCodeModule = ThisWorkbook.VBProject.VBComponents
("Data").CodeModule
With VBCodeMod
LineNum = .CountOfLines + 1
.InsertLines LineNum, _
"Sub DCAStorage()" & Chr(13) & _
" dca1 = Sheets("DataArray").Range("A59").Value " & Chr
(13) & _
" dca2 = Sheets("DataArray").Range("A60").Value " & Chr
(13) & _
" dca3 = Sheets("DataArray").Range("A61").Value " & Chr
(13) & _
"End Sub"
End With
End Sub

If you want to use double quotes within a string, you need to use two sets
of double quotes for every double quote you want in the string

change
" dca1 = Sheets("DataArray").Range("A59").Value "

to

" dca1 = Sheets(""DataArray"").Range(""A59"").Value "

Testing from the immediate window:
? " dca1 = Sheets(""DataArray"").Range(""A59"").Value "
dca1 = Sheets("DataArray").Range("A59").Value

--
Regards,
Tom Ogilvy


"russell" wrote in message
...
Howdy.
I am trying to use write some code to write code for
variable storage.
The below code is from Chip's site, with slight changes.
When writing, i get the following message, highlighting
the first "DataArray"
Compile Error
Expected: end of statement.

Any help would be greatly appreciated.
Cheers.
Russell.

-----------------------------------------
Sub AddDCAProc()
Dim NewCodeModule As CodeModule
Dim LineNum As Long
Set NewCodeModule = ThisWorkbook.VBProject.VBComponents
("Data").CodeModule
With VBCodeMod
LineNum = .CountOfLines + 1
.InsertLines LineNum, _
"Sub DCAStorage()" & Chr(13) & _
" dca1 = Sheets("DataArray").Range("A59").Value " & Chr
(13) & _
" dca2 = Sheets("DataArray").Range("A60").Value " & Chr
(13) & _
" dca3 = Sheets("DataArray").Range("A61").Value " & Chr
(13) & _
"End Sub"
End With
End Sub

Thanks for your help Tom.
Cheers.
Russ.

"Tom Ogilvy" wrote in message
...
If you want to use double quotes within a string, you need to use two sets
of double quotes for every double quote you want in the string

change
" dca1 = Sheets("DataArray").Range("A59").Value "

to

" dca1 = Sheets(""DataArray"").Range(""A59"").Value "

Testing from the immediate window:
? " dca1 = Sheets(""DataArray"").Range(""A59"").Value "
dca1 = Sheets("DataArray").Range("A59").Value

--
Regards,
Tom Ogilvy


"russell" wrote in message
...
Howdy.
I am trying to use write some code to write code for
variable storage.
The below code is from Chip's site, with slight changes.
When writing, i get the following message, highlighting
the first "DataArray"
Compile Error
Expected: end of statement.

Any help would be greatly appreciated.
Cheers.
Russell.

-----------------------------------------
Sub AddDCAProc()
Dim NewCodeModule As CodeModule
Dim LineNum As Long
Set NewCodeModule = ThisWorkbook.VBProject.VBComponents
("Data").CodeModule
With VBCodeMod
LineNum = .CountOfLines + 1
.InsertLines LineNum, _
"Sub DCAStorage()" & Chr(13) & _
" dca1 = Sheets("DataArray").Range("A59").Value " & Chr
(13) & _
" dca2 = Sheets("DataArray").Range("A60").Value " & Chr
(13) & _
" dca3 = Sheets("DataArray").Range("A61").Value " & Chr
(13) & _
"End Sub"
End With
End Sub