Hi Howard,

Am Thu, 16 Jan 2014 05:15:03 -0800 (PST) schrieb L. Howard:

I dimmed rngC as Variant and i as Long.
Code is in standard module.

Type mismatch on vaRicho, yellowed out and hover cursor over it.

try:
Dim varRicho(3) As Variant
Dim rngC As Range
Dim i As Long

Here it works without errors


Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2