Book1 | ||||||
---|---|---|---|---|---|---|
A | B | C | D | |||
3 | 7 | |||||
4 | 4 | |||||
5 | 9 | |||||
6 | 3 | |||||
Sheet2 |
Sub BoldMe()
Dim rng As Range
Dim cel As Range
Set rng = ActiveWorkbook.Sheets("sheet1").Range("B3:B6")
For Each cel In rng
If cel.Value = Application.WorksheetFunction.Max(rng) Then
cel.Font.Bold = True
Else: cel.Font.Bold = False
End If
Next
End Sub