Hi Everyone,
I have the macro below that splits the cell content of column D. However, this only works for those values in column D (Destination:=Range("D1")). I have tried a few things but can't get it right, I want the macro to run on any column I choose and not just Column D. Can anybody help?

Sub Split_Cells()

ActiveCell.EntireColumn.Select
Selection.TextToColumns Destination:=Range("D1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(1, 1)), TrailingMinusNumbers:=True
End Sub

Thank you

Garry