Hello.
I have a code to convert number stored as text to numbers.

I've read on the web much about to avoid using:
.Select
.Selection
ActiveSheet, etc.

However, I am unsure of how to avoid using those in my code: 

Sub textTonumber()
Dim ws As Worksheet


Set ws = Worksheets("qry_creategantt")
        
    With ws.Range("I2", Range("I2").End(xlDown)).Select
     
        Selection.TextToColumns Destination:=Range("I2"), DataType:=xlDelimited, _
        TextQualifier:=xlTextQualifierDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
        ws.Range("A1").Select


    End With


End Sub
Your ideas are welcome
Cheer