If cell contains text string then run macro, otherwise stop macro and popup message

Hi, thanks SixthSense.

I realise I'm being thick here but I'm not a coder and this isn't working for me. Most of my macros are 'recorded'. Below is how I've inserted this into my code, please can you tell me where I'm going wrong?

Sub BOQ_I()
'
' BOQ_I Macro
'
    If InStr(1, Range("I2").Value, "net", vbTextCompare) = 0 Then
    MsgBox "Incorrect column selected for Net data, verify correct data source and try again", vbInformation, "Incorrect Column"
    Exit Sub
End If
    Columns("B:H").Select
    Application.Run "PERSONAL.XLSB!FormatImportTab"
    Sheets("Master").Select
    Range("A2").Select
    Application.Run "PERSONAL.XLSB!Master_I"
    ActiveWorkbook.Save
End Sub