Hi Howard,

Am Thu, 8 Jun 2017 01:55:18 -0700 (PDT) schrieb L. Howard:

It errors if there are no VLOOKUP's on the sheet.

check strRng for <"":

If strRng < "" Then
With .Range(Mid(strRng, 2))
.Value = .Value
End With
End If


Regards
Claus B.
--
Windows10
Office 2016