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

Popular posts from this blog

TDS Calculation System

VBA - Additional Controls Dialog Box "MISSING"

Loan EMI Calculator Dashboard