Text to Columns Macro

[TooZippy]

I tried recording a macro and at first it worked then I got trouble with it. I found this macro on the internet and it worked at first, but when I tried to run it today I got the debug box to pop up. Can anybody tell me what is wrong with it and offer any suggestions so that it would work please? The characters in the cells that I want to put in their own column are separated by spaces.

Thank you,

Jared Z.

[LEFT][COLOR=#1D2228][FONT=Helvetica Neue]Sub Text_to_Columns()[/FONT][/COLOR]
[COLOR=#1D2228][FONT=Helvetica Neue]    Dim objRange1 As Range[/FONT][/COLOR]
[COLOR=#1D2228][FONT=Helvetica Neue]    [/FONT][/COLOR]
[COLOR=#1D2228][FONT=Helvetica Neue]    'Set up the range[/FONT][/COLOR]
[COLOR=#1D2228][FONT=Helvetica Neue]    Set objRange1 = Range("D:D")[/FONT][/COLOR]
[COLOR=#1D2228][FONT=Helvetica Neue]    [/FONT][/COLOR]
[COLOR=#1D2228][FONT=Helvetica Neue]    objRange1.TextToColumns _[/FONT][/COLOR]
[COLOR=#1D2228][FONT=Helvetica Neue]      Destination:=Range("Q2"), _[/FONT][/COLOR]
[COLOR=#1D2228][FONT=Helvetica Neue]      DataType:=xlDelimited, _[/FONT][/COLOR]
[COLOR=#1D2228][FONT=Helvetica Neue]      Tab:=False, _[/FONT][/COLOR]
[COLOR=#1D2228][FONT=Helvetica Neue]      Semicolon:=False, _[/FONT][/COLOR]
[COLOR=#1D2228][FONT=Helvetica Neue]      Comma:=False, _[/FONT][/COLOR]
[COLOR=#1D2228][FONT=Helvetica Neue]      Space:=True, _[/FONT][/COLOR]
[COLOR=#1D2228][FONT=Helvetica Neue]      Other:=True, _[/FONT][/COLOR]
[COLOR=#1D2228][FONT=Helvetica Neue]      OtherChar:="  "[/FONT][/COLOR]
[COLOR=#1D2228][FONT=Helvetica Neue] [/FONT][/COLOR]
[COLOR=#1D2228][FONT=Helvetica Neue]End Sub[/FONT][/COLOR][/LEFT]

 

[Fluff]

What did the debug box say?

 

[TooZippy]

I checked the debug box again. It says "Run-time error '1004': No data was selected to parse." ??? Set objRange1 = Range("D:D") ???

Thank you,

Jared Z.

 

[Fluff]

In that case there is no data in col D of the active sheet.

 

[TooZippy]

There is data there, it is just not detecting it.

Jared Z.

 

[Fluff]

Where abouts in col D is the data?
Also what type of data is it, formulas, table,what?

 

[TooZippy]

There is a header at the top of column D followed by two blank cells then data in row four. There are blank cells hear and there down the column and it is only text data.

Thank you,

Jared Z.

 

[Joe4]

You don't happen to have any merged cells or protected ranges on your worksheet, do you?

 

[TooZippy]

Nope!

 

[Joe4]

Since no one can seem to recreate your issue, your best bet may be to upload a copy of your data file to a file sharing site, and provide a link to it here.
Someone will probably download it and take a look to see what the issue may be,