Hi,

Am Tue, 26 Jan 2016 15:28:53 -0800 (PST) schrieb goaljohnbill:

Dim rngSelection As Range
12 Set rngSelection = Selection
Dim rngCell As Range
13 For Each rngCell In rngSelection
14 If rngCell.Value = varReplaceValue Then
15 rngCell.Value = varFillValue

if you use Range.Replace instead comparing each cell it works with
numbers and text:

Dim rngSelection As Range
Set rngSelection = Selection
rngSelection.Replace varReplaceValue, varFillValue


Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional