I am trying to find and replace a list of numbers that begin with zero. I
can't get replacement function in this code to display the zero.

Sub FindReplace()

Columns("J:J").Select
FindReplaceDPT 144, 141
FindReplaceDPT 147, 151
FindReplaceDPT 149, 151

End Sub

Sub FindReplaceDPT(Find, Replace)

Selection.Replace What:=Find, Replacement:=Replace, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

End Sub