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]

Because you are looking at part of the cell contents, rather than the complete string

 

[billandrew]

Makes sense. Thank you