Udvidelse til VBA kode

Hej Eksperter
Jeg får en del data tilsendt, hvor tal er konverteret til tekst. Til at starte med var det kun nødvendig at konverter kol. A, men nu kan det være forskellige kolonner og i forskellige ark.
Er det muligt at udvide koden til at konverter de kolonner, der er markeret i det aktive ark? Og tilføje en genvejs tast f.eks. ctrl+shift+W til at køre koden.

Sub tekst_til_tal()
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=True, Semicolon _
        :=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, _
        1), TrailingMinusNumbers:=True
End Sub