Få makro til at udføres på valgte celler

Jeg har lavet en makro der ser ud som følger:

Sub Opdel_ingredienser_til_flere_celler()
'
' Opdel_ingredienser_til_flere_celler Makro
' Makro indspillet 17-10-2006 af Henrik Borg Kristensen
'

'
    Range("A5").Select
    Selection.TextToColumns Destination:=Range("A5"), 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, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
        ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
        (20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1)), TrailingMinusNumbers:=True
End Sub

Hvordan får jeg makroen til at udføre denne funktion på alle celler der er aktive (Dvs. valgt med Ctrl+venstreklik med mus)? Som det er nu, udfører den kun funktionen for A5.