VBA - Find and Replace Between Two Values

[paulfitz320]

Hi, I'm looking for a VBA routine to replace all values in COL A that are greater than 15 and less than 999, with the number 16.

Thanks.

 

[Fluff]

How about

Sub paulfitz320()
   With Range("A2", Range("A" & Rows.Count).End(xlUp))
      .Value = Evaluate(Replace("if((@>15)*(@<999),16,@)", "@", .Address))
   End With
End Sub

 

[paulfitz320]

Thanks, works nicely.

 

[Fluff]

You're welcome & thanks for the feedback