VBA - Combine Multiple Message Box into a single box

[hmltnangel]

Hi all,

Hope you can figure out the last little bit (hopefully) that can combine these queries into one message box. Instead of three boxes, one after the other.

Private Sub Worksheet_Change(ByVal Target As Range) 'WS change is whenever a value in target cell is changed
Dim cell As Range

If Target.Value > 0 Then
            If Target.DisplayFormat.Interior.Color = 8696052 Then
            MsgBox "DH Warning: Individuals Comp Ratio is in excess of 120%. Recommendation is that Merit Award does not exceed 1%", Title:=("Comp Ratio High")
            End If
End If

    If Intersect(Target, Range("AB4:AB2000")) Is Nothing Then Exit Sub

'   Check value in column 22
    If Cells(Target.Row, 22).Value = "0 - Too new to rate" Then
        MsgBox "Too New To Rate: This employee has not had a formal Performance Appraisal for FY23. Please ensure that the performance is still factored into your merit decision.", Title:=("Performance Rating")
    End If

For Each cell In Range("AC4:AC2000")
If cell.Value = "Individual Budget Exceeded" Then
    MsgBox "You have exceeded the Individual Budget for this person. Please ensure this is correct before confirming", Title:=("Individual Budget Exceeded")
End If
Next cell

End Sub

 

[hmltnangel]

I am indeed, I changed it a tiny bit to suit the amended requirements. But your solution was perfect. No idea why Excel needed restarted but it works as expected now.

 

[Joe4]

Excellent.
Glad to hear it!