Gordon Rainsford wrote:

Cells(i + 1, 4).Value = minValue
Cells(i + 1, 3).Value = "Minimum Value"

These final two lines should read:

Cells(i + 1, Selection.Column).Value = minValue
Cells(i + 1, Selection.Column - 1).Value = "Minimum Value"


--
Gordon Rainsford

London UK