Private Sub CommandButton1_Click() Dim rng As Range Dim sh As Worksheet Set sh = Worksheets("Sheet2") With sh Set rng = .[C7] Set rng = .Range(rng, .Cells(.Rows.Count, rng.Column).End(xlUp)) rng.TextToColumns Destination:=rng, DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, _ Tab:=False, _ Semicolon:=False, _ Comma:=True, Space:=False, Other:=False, _ FieldInfo:=Array(Array(1, xlGeneralFormat), Array(2, xlGeneralFormat), Array(3, xlGeneralFormat)), _ TrailingMinusNumbers:=True End With
End Sub