Hi,

Relatively new to VBA and I'm looking for some help. This will probably be simple but I cant seem to get this to work.

Looking to join 2 macros together (I've checked them on separate spreadsheets and they work separately but not together).
First macro deletes rows depending on criteria selected from a drop down list.
Second macro shows an error message box depending on criteria within a separate cell. I would like this to be cell C19 however C19 already has a formula in it. I would like the result of the formula within C19 (HIGH/MEDIUM/LOW) to trigger the error message box - is this possible?
If not, then I can use cells C29, C32 and C35. My sheet is called "REPORT".

My code so far:

Private Sub ListBox1_Click()

End Sub

Private Sub ComboBox1_Change()

End Sub
Private Sub Worksheet_Change(ByVal Target As Range)

If Sheets("REPORT").Range("E5") = Sheets("REPORT").Range("AL3") Then
Sheets("REPORT").Rows.Hidden = False
Range("A41:A42,A88:A102,A155").EntireRow.Hidden = True
'Else: Sheets("REPORT").Range("A41:A42,A89:A101,A155").EntireRow.Hidden = False
End If

If Sheets("REPORT").Range("E5") = Sheets("REPORT").Range("AL4") Then
Sheets("REPORT").Rows.Hidden = False
Range("A41:A42,A88:A102,A143:A154,E158:E159").EntireRow.Hidden = True
End If

If Sheets("REPORT").Range("E5") = Sheets("REPORT").Range("AL6") Then
Sheets("REPORT").Rows.Hidden = False
Range("A42:A45,A105:A114,E155").EntireRow.Hidden = True
End If

If Sheets("REPORT").Range("E5") = Sheets("REPORT").Range("AL5") Then
Sheets("REPORT").Rows.Hidden = False
Range("A42:A45,A105:A114,A143:A154,A157:A159").EntireRow.Hidden = True
End If

If Sheets("REPORT").Range("E5") = Sheets("REPORT").Range("AL7") Then
Sheets("REPORT").Rows.Hidden = False
Range("A155:A157").EntireRow.Hidden = True
End If

If Sheets("REPORT").Range("E5") = Sheets("REPORT").Range("AL2") Then
Sheets("REPORT").Rows.Hidden = False

End If

Sub MsgBox
Set Target = Me.Range("D3")

If Target.Value = "high" Then
MsgBox "You exceeded 500"
End If

End Sub
Any help would be greatly appreciated!
thanks