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

[jayinthe813]

Sub valuetest()

If Range("H1").Value > 10 Then
MsgBox "The value is greater than 10!"
Else
End If

End Sub

[akwishestofish]

Thanks you so much Jay, it was exactly what I wanted.

[jayinthe813]

Thanks you so much Jay, it was exactly what I wanted.

no problem, you might want to go to your original post > advanced edit > prefix > mark as solved so the mods dont get upset.