Help with code to add code
 

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

Help with code to add code
 

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

Help with code to add code
 

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