Sub quiz1()
    Dim A, B, C, D, max As Integer
    A = Range("b5").Value
    B = Range("d5").Value
    C = Range("f5").Value
    D = Range("h5").Value
    
    max = A
    If max < B Then
        max = B
    End If
    If max < C Then
       max = C
    End If
    If max < D Then
       max = D
    End If
    
    Range("j5").Value = max
    End Sub
Sub quiz2()
    Dim A, B, C, temp As Integer
    A = Range("b13").Value
    B = Range("d13").Value
    C = Range("f13").Value
    
    If A > B Then
       temp = A
       A = B
       B = temp
    End If
    If B > C Then
       temp = B
       B = C
       C = temp
    End If
    If A > B Then
       temp = A
       A = B
       B = temp
    End If
    
    Range("b13").Value = A
    Range("d13").Value = B
    Range("f13").Value = C
End Sub
Sub quiz3()
    Dim A, B, C, D, temp As Integer
    A = Range("b19").Value
    B = Range("d19").Value
    C = Range("f19").Value
    D = Range("H19").Value
    
    If A > B Then
       temp = A
       A = B
       B = temp
    End If
    If B > C Then
       temp = B
       B = C
       C = temp
    End If
    If C > D Then
       temp = C
       C = D
       D = temp
    End If
    If B > C Then
       temp = B
       B = C
       C = temp
    End If
    If A > B Then
       temp = A
       A = B
       B = temp
    End If
    If B > C Then
       temp = B
       B = C
       C = temp
    End If
    
    Range("b19").Value = A
    Range("d19").Value = B
    Range("f19").Value = C
    Range("H19").Value = D
End Sub