R
russell
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
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