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.

Before	After
23200-101	23200101
232YM-01	232YM01
2333Q-0001	2333Q0001

<tbody>
</tbody>

 

[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?