Adding a message box based on a value

[akwishestofish]

Hello,
I need a little help. I want a message box to appear only if the Value in Range("H1") is greater than 10. I would like the VBMessageBox style to be VBOKONLY and VBEXCLAMATION. Here is my VBA Code I already put together.

Sub HCHB_JAX()
'
' HCHB_JAX Macro
'

    Sheets("Network Details").Select
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BranchID").ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BranchID").CurrentPage = _
        "JAX"
    Sheets("Network Details").Select
    ActiveSheet.PivotTables("PivotTable3").PivotFields("Network").ClearAllFilters
    ActiveSheet.PivotTables("PivotTable3").PivotFields("Network").CurrentPage = _
        "JAX"
    Columns("F:F").Select
    Selection.NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
    Range("I19").Select

   
    
End Sub

I would like the code to be at the end. Thanks for your help