For Each data In colSelection(col)
If data.Value < minC Then
minC = data.Value
cMin = data.Offset(0, -1).Value
End If
If data.Value > maxC Then
maxC = data.Value
cMax = data.Offset(0, -1).Value
End If
Next