[ChrisGT7]

Καλησπέρα Γιώργο,

Αντικατέστησε τον κώδικα του αρχείου με τον παρακάτω:

Option Explicit

Private Sub UserForm_Initialize()
    Dim Lbl As Control, Min As Double, Max As Double
    
    For Each Lbl In Me.Controls
        If TypeName(Lbl) = "Label" Then
            If IsNumeric(CDbl(Lbl.Caption)) Then
                Min = CDbl(Lbl.Caption)
                Max = CDbl(Lbl.Caption)
                Exit For
            End If
        End If
    Next
    
    For Each Lbl In Me.Controls
        If TypeName(Lbl) = "Label" Then
            If IsNumeric(CDbl(Lbl.Caption)) Then
                If Lbl.Caption <= Min Then Min = CDbl(Lbl.Caption)
                If Lbl.Caption >= Max Then Max = CDbl(Lbl.Caption)
            End If
        End If
    Next
    
    For Each Lbl In Me.Controls
        If TypeName(Lbl) = "Label" Then
            If IsNumeric(CDbl(Lbl.Caption)) Then
                If Lbl.Caption = Min Then
                    Lbl.BackColor = vbGreen
                ElseIf Lbl.Caption = Max Then
                    Lbl.BackColor = vbRed
                End If
            End If
        End If
    Next
End Sub