This would be the final step.
Call the Test code from the Main procedure and repeat until you click "No" in the message box.

Sub Test_Main()
    Dim Answer
    
    Do
        DoEvents
        Call Test
        Answer = MsgBox("Process Another?", vbYesNo + vbQuestion)
    Loop Until Answer = vbNo
End Sub
MsgBox "Customer " & ReferrersName & " Already recieved a Bird-Dog For " & ReferredCustomer & vbNewLine & _ " See Highlighted", vbCritical, "Already Recieved"
.EntireRow.Interior.ColorIndex = 6
BTW, I wonder what we're going to do with the highlighted row after they check it out?
'Cause it remains until we turn it off.