Just so you know you had 2 issues in what you posted...
Set grng = Range("A1:C1" & Range("C65536").End(xlUp).Row)
Is not reference to sheet1 and there should be no 1 after :C
--
HTH...

Jim Thomlinson


"nospaminlich" wrote:

Many thanks Jim that's great. On to Phase 2 now!