Removing "select" in this VBA Code

[ItalianPlatinum]

Is there an easy way for me to remove this "select" option i tried using With sheet and defining the workbook and sheet together but then i mess up my comma delimited. Anyone able to assist? Sheet is called "data"

Sub CommaDelimited()
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 2)), TrailingMinusNumbers:=True
End Sub

 

[mole999]

have you tried substituting with activate

 

[ItalianPlatinum]

have you tried substituting with activate

Yes i can get it to work with activate and select. but was seeing if i could accomplish doing my comma delimited without activating or selecting anything.

 

[Dossfm0q]

Hi
Note: .Cells(1, 1) instead of Range("A1") to be first Cell of column you select.

Sub CommaDelimited()

 MyCl = Columns(1).Address ' or 'MyCl =  Columns("A").Address
   With Columns(MyCl)
    .TextToColumns Destination:=.Cells(1, 1), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
            Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
            :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
            Array(7, 1), Array(8, 2)), TrailingMinusNumbers:=True
    End With
End Sub