Hi Howard,

Am Wed, 28 May 2014 07:59:57 +0200 schrieb Claus Busch:

If Len(.Cells(3, i).Value) 0 Then

or try it with
Lcol = 23 - WorksheetFunction.CountBlank(Range("A3:W3"))


Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional