title: Code gives me Compile Error, Expected: List Separator or )
body: <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>