Replace

[billandrew]

Looking to Replace a dash with a Blank in Column D

Below is what I have.

Thank You for any assist.

Sub ReplaceD()    Dim lastRow As Long
    lastRow = Range("D" & Rows.Count).End(xlUp).Row
    Range("D2:D" & lastRow).Replace what:="-", replacement:="", lookat:=xlWhole
    End Sub

 

[Fluff]

Assuming that that code doesn't work, could you explain why?

 

[billandrew]

That I am unsure of.

 

[Fluff]

That doesn't give us much to go on
Could you post some of your data & what you want?

 

[JoeMo]

Is "-" the only thing in each of the cells or is it a part of longer strings? Do you want to replace the "-" with a blank space or with the null string ""?

 

[billandrew]

Yes I'd like to replace the "-" with no space.

[TABLE="class: grid, width: 500, align: center"]
<tbody>[TR]
[TD]Before[/TD]
[TD]After[/TD]
[/TR]
[TR]
[TD]23200-101[/TD]
[TD]23200101[/TD]
[/TR]
[TR]
[TD]232YM-01[/TD]
[TD]232YM01[/TD]
[/TR]
[TR]
[TD]2333Q-0001[/TD]
[TD]2333Q0001[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[Fluff]

In that case change

lookat:=xlWhole

to

lookat:=xlPart

 

[billandrew]

Thanks once again Mr. Fluff - That did the trick.

 

[JoeMo]

This will do it:

Sub ReplaceDash()
Application.ScreenUpdating = False
Range("D2:D" & Cells(Rows.Count, "D").End(xlUp).Row).Replace what:="-", replacement:="", lookat:=xlPart
Application.ScreenUpdating = True
End Sub

 

[billandrew]

Thank you JoeMo. Appreciate the consolidated code.
Question why is the lookat xlpart?