Many thanks for this Paul. The following code works great to delete the link if one exists, establish the link again, export table to excel and then delete all records from the table.
Sub Macro3()
On Error GoTo Macro3_Err
If Len(CurrentDb.TableDefs("tblEvents").Connect) > 0 Then...