title: Importing multiple CSV to multiple worksheet in a single workbook
body: <p>How do I do this? Basically I want my multiple CSV files to be imported to  multiple worksheet but in a single workbook only. Here's my VBA code that I want to loop. I need the loop to query all the CSV in <code>C:\test\</code></p>
  
  <pre><code>Sub Macro()
  With ActiveSheet.QueryTables.Add(Connection:= _
      "TEXT;C:\test\test1.csv", Destination:=Range("$A$1"))
      .Name = "test1"
      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .RefreshStyle = xlInsertDeleteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .TextFilePromptOnRefresh = False
      .TextFilePlatform = 437
      .TextFileStartRow = 1
      .TextFileParseType = xlDelimited
      .TextFileTextQualifier = xlTextQualifierDoubleQuote
      .TextFileConsecutiveDelimiter = False
      .TextFileTabDelimiter = False
      .TextFileSemicolonDelimiter = False
      .TextFileCommaDelimiter = True
      .TextFileSpaceDelimiter = False
      .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
      .TextFileTrailingMinusNumbers = True
      .Refresh BackgroundQuery:=False
  End With
  Sheets.Add After:=Sheets(Sheets.Count)
  End Sub
  </code></pre>