title: Load CSV to select sheets from combobox
body: <p>I have UserForm With two things. Combobox with names of months and button to load CSV file to selected month from comboboxlist. When I uploaded my CSV file, always data prints in Sheet(12).</p>
  <p>I want to create UserForm to upload CSV file to selected Sheet form ComboBox list.</p>
  <p>For now in excel file is 12 sheets with name of months. Maybe i need to combine my name of sheets with this .AddItem ?</p>
  <pre><code>Private Sub Userform_Initialize()
  
  Dim month(12) As String
      Dim i As Integer
          month(1) = &quot;Styczeń&quot;
          month(2) = &quot;Luty&quot;
          month(3) = &quot;Marzec&quot;
          month(4) = &quot;Kwiecień&quot;
          month(5) = &quot;Maj&quot;
          month(6) = &quot;Czerwiec&quot;
          month(7) = &quot;Lipiec&quot;
          month(8) = &quot;Sierpień&quot;
          month(9) = &quot;Wrzesień&quot;
          month(10) = &quot;Październik&quot;
          month(11) = &quot;Listopad&quot;
          month(12) = &quot;Grudzień&quot;
  
  Dim ws As Worksheet
  For i = 1 To 12
  
  UseForm_START.Dane_miesiac.AddItem month(i)
  
  Next i
  
  End Sub
  
  Private Sub CommandButton1_Click()
      
      Dim SciezkaPliku As Variant
      Dim FileFilter As String
      
      
      FileFilter = &quot;Pixolus CSV (*.csv),*.csv&quot;
      SciezkaPliku = Application.GetOpenFilename(FileFilter)
      
  
      With ThisWorkbook.Sheets(month(i)).QueryTables.Add(Connection:=&quot;TEXT;&quot; &amp; SciezkaPliku, Destination:=ThisWorkbook.Sheets(month(i)).Range(&quot;$A$2&quot;))
      
          .Name = &quot;CAPTURE&quot;
          .FieldNames = True
          .RowNumbers = False
          .FillAdjacentFormulas = False
          .PreserveFormatting = True
          .RefreshOnFileOpen = False
          .RefreshStyle = xlOverwriteCells
          .SavePassword = False
          .SaveData = True
          .AdjustColumnWidth = True
          .RefreshPeriod = 0
          .TextFilePromptOnRefresh = False
          .TextFilePlatform = 437
          .TextFileStartRow = 1
          .TextFileParseType = xlDelimited
          .TextFileTextQualifier = xlTextQualifierDoubleQuote
          .TextFileConsecutiveDelimiter = False
          .TextFileTabDelimiter = True
          .TextFileSemicolonDelimiter = False
          .TextFileCommaDelimiter = True
          .TextFileSpaceDelimiter = False
          .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
          .TextFileTrailingMinusNumbers = True
          .Refresh BackgroundQuery:=False
          ActiveWorkbook.Save
  
      End With
      
      MsgBox &quot;Dane zostały dodane!&quot;
      
      'Worksheets(&quot;month(i)&quot;).Columns(&quot;D&quot;).Replace _ '
      'What:=&quot;.&quot;, Replacement:=&quot;,&quot;, _                 '
      'SearchOrder:=xlByColumns, MatchCase:=True      '
      'Worksheets(&quot;month(i)&quot;).Columns(&quot;D&quot;).Select     '
      'Selection.NumberFormat = &quot;0.00&quot;        '
  End Sub
  </code></pre>