Find lowest value
'Macro Program to find Lowest Value and Bold in Range A:F
Sub Macroto_Bold_MinValue()
For J = 1 To Application.WorksheetFunction.CountA(Range("a:a"))
x = Application.WorksheetFunction.Min(Range("A" & J & ":f" & J))
For i = 1 To 6
If (Cells(J, i) = x) Then
Cells(J, i).Font.Bold = True
Else
Cells(J, i).Font.Bold = False
End If
Next i
Next J
End Sub
Comments
Post a Comment