Using VBA to find the closest match in selected cells

Cool, thanks.

I kept working on it today and I finally did it with a for/if loop and it's also working good (even tough it's a bit longer than what you gave me...).

For i = 13 To 31
                        If Sheets("Sheet2").Cells(strRowNoList, i) = "N/A" Then
                        ElseIf Sheets("Sheet2").Cells(strRowNoList, i) <= Sheets("Sheet1").Cells(21, "CT") Then
                            min_dist = Sheets("Sheet2").Cells(strRowNoList, i).Value
                        Else
                            Cells(23, col) = min_dist
                            Cells(23, col + 1) = Sheets("Sheet2").Cells(strRowNoList, i)
                            Cells(24, col) = Sheets("Sheet2").Cells(strRowNoList, "B")
                            Cells(25, col) = Sheets("Sheet2").Cells(strRowNoList, "C")
                            col = col + 2
                            Exit For
                        End If
                    Next i

Thanks again!!