On 06/09/2006 23:36 RB Smissaert wrote:

Try leaving out:
If Target.Cells.Count = 1 Then (+ the corresponding End If)
and replace it with:
On Error Resume Next

Thanks for your patience but the changes are still not being picked up.

--
Frank
(Beware of spam trap - remove the negative)