Dynamic Range selection Text to columns

Can anyone help with dynamic range selection while performing text to columns? I have the following macro generated to acheive the same:

Please Login or Register  to view this content.

To illustrate further, for example if have a column with delimited values (in which ever column in the worksheet):

Column A
a_b_c
a_c_d
b_c_d
c_d_e

Output:

Column A Column B Column C
a b c
a c d
b c d
c d e


I need to be able to select the Range wherever i need in the worksheet and convert text to columns. Possibly a inputbox where i can provide my Range selection. I dont want to hardcode my Range selection like we did in the above macro:

Selection.TextToColumns Destination:=Range("A4")


Thanks in advance!

Awesome! Thanks again Sixth Sense!

I really liked your idea of selecting Range via inputbox