I need to select cells, then save these to a web page, conditional
formatting will not work for what i'm doing
Maybe this function will help you. Pass it the column (as a letter) you want
to parse and it will return a range containing the cells with the highest
value in that column. You can then process the returned range however you
want to.
Function HighestSelection(ColumnLetter As String) As Range
Dim R As Range
Dim MaxValue As Double
Dim CumulativeSelection As String
MaxValue = -1E+308
For Each R In Range(ColumnLetter & ":" & ColumnLetter)
If R.Value > MaxValue Then
CumulativeSelection = R.Address
MaxValue = R.Value
ElseIf R.Value = MaxValue Then
CumulativeSelection = CumulativeSelection & "," & R.Address
End If
Next
Set HighestSelection = Range(CumulativeSelection)
End Function
Rick