On Wednesday, October 9, 2013 12:29:15 AM UTC-7, Claus Busch wrote:
Hi Howard,



Am Wed, 9 Oct 2013 00:20:46 -0700 (PDT) schrieb Howard:



For i = 13 To 6 Step -1

If .Cells(rngPN.Row, i) < "" Then

c.Offset(0, 1) = .Cells(rngPN.Row, i)

Exit For

End If



change it to:

For i = 13 To 8 Step -1

If .Cells(rngPN.Row, i) < "" Then

c.Offset(0, 1) = .Cells(rngPN.Row, i)

Exit For

End If

Next



If all cells have "" then you get no entry





Regards

Claus B.


Works great. Thanks Claus. Appreciate it.

Regards,
Howard