Code gives me Compile Error, Expected: List Separator or )
<p>I am trying to create an Excel VBA button code which will copy a data in columns <code>A8:A399</code>, <code>B8:B399</code>, <code>C8:C399</code>, <code>D8:D399</code>, <code>E8:E399</code>, <code>F8:F399</code>, <code>G8:G399</code>, <code>H8:H399</code> one of the excel workbook to another workbook without opening it. But the Code I am using gives me an error message saying:</p>

<blockquote>
  <p>Compile Error, Expected: List Separator or )</p>
</blockquote>

<p>and it highlights the <code>(:)</code> in <code>Set myData = Workbooks.SaveAs(“C:\Users\athif\Desktop\Test_Pos\DataBase.xlsx”)</code>. Please tell me a solution.</p>

<p>Here is my Code:</p>

<pre><code>Private Sub CommandButton1_Click()
    LR = Range("A399").End(xlUp).Row
    LR1 = Range("B399").End(xlUp).Row
    LR2 = Range("C399").End(xlUp).Row
    LR3 = Range("D399").End(xlUp).Row
    LR4 = Range("E399").End(xlUp).Row
    LR5 = Range("F399").End(xlUp).Row
    LR6 = Range("G399").End(xlUp).Row
    LR7 = Range("H399").End(xlUp).Row

    Dim itemIndex As String
    Dim itemNumber As String
    Dim itemDetails As String
    Dim itemPrice As Single
    Dim itemCust_nam As String
    Dim itemMobile As String
    Dim itemDate As String
    Dim itemTime As String
    Dim myData As Workbook

Worksheets(“Sheet1”).Select
    itemIndex = Range("A8:A" &amp; LR)
    itemNumber = Range("B8:B" &amp; LR1)
    itemDetails = Range("C8:C" &amp; LR2)
    itemPrice = Range("D8:D" &amp; LR3)
    itemCust_nam = Range("E8:E" &amp; LR4)
    itemMobile = Range("F8:F" &amp; LR5)
    itemDate = Range("G8:G" &amp; LR6)
    itemTime = Range("H8:H" &amp; LR7)


Set myData = Workbooks.SaveAs(“C:\Users\athif\Desktop\Test_Pos\DataBase.xlsx”)

Worksheets(“Sales”).Select
Worksheets(“Sales”).Range(“A1”).Select
RowCount = Worksheets(“Sales”).Range(“A1”).CurrentRegion.Rows.Count
With Worksheets(“Sales”).Range(“A1”)
    .Offset(RowCount, 0) = itemIndex
    .Offset(RowCount, 1) = itemNumber
    .Offset(RowCount, 2) = itemDetails
    .Offset(RowCount, 3) = itemPrice
    .Offset(RowCount, 4) = itemCust_nam
    .Offset(RowCount, 5) = itemMobile
    .Offset(RowCount, 6) = ItemData
    .Offset(RowCount, 7) = itemTime
End With

myData.Save
End Sub
</code></pre>