Message Box Range

Hello all,
Can you please add something in the code?
After the message box appear and when I click "OK" then it will go directly to AI5.

Thanks in advance :o)

Private Sub Worksheet_Change(ByVal Target As Range)
    Target.Select
    If Intersect(Target, Range("J4")) Is Nothing Then Exit Sub
MsgBox "Stacy, Dont Forget to Click the Check Box", vbOKOnly, "REMINDER"
End Sub