Yes, it does indeed!



Works with blanks, non match numbers and blanks.



Always impressed, and even more grateful.



Thanks,

Howard

What would I change in the code so that this part will return the values of formulas and some of those formulas will return values like 1234, AX-123, AAA2?

Code, as is, returns numeric values just fine, but not if they are from a formula. Seems like I need a paste special values somewhere...

If Not rngPN Is Nothing Then
c.Offset(0, 1) = WorksheetFunction.Max(.Rows(rngPN.Row))
c.Offset(0, 2) = WorksheetFunction.Min(.Rows(rngPN.Row))
Set rngPN = ws2From_Item.FindNext(rngPN)
End If

Howard