Try this code
Sub Macro1()
Dim Data As Range
Application.DisplayAlerts = False
Set Data = Range("C2", Range("C2").End(xlDown).Address)
Data.TextToColumns Data.Offset(, 1), OtherChar:=".",
FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2))
Application.DisplayAlerts = Tru
Thanks Lalit for the solution, though the solution to my query is quite
simpler..while using text to column on the very next step choose text for
each column within text to column window.
Regards Pooja Sharma
Sent from my iPad
On Aug 29, 2013, at 2:09 PM, Lalit Mohan Pandey
wrote:
> Tr