As a matter of interest I saved the macro as a module then when I tried to run it it threw a Macros dialogue asking me for a macro...
This was the code:
'------------------------------------------------------------
' M_Link_D
' Links to InvPublic when USB is defined as D:
'------------------------------------------------------------
Function M_Link_D()
On Error GoTo M_Link_D_Err
' Remove current AppNew
DoCmd.DeleteObject acTable, "AppNew"
' Link AppNew
DoCmd.TransferDatabase acLink, "Microsoft Access", "d:\mobile\invpublic.mdb", acTable, "AppNew", "AppNew", False
' Remove current FHL
DoCmd.DeleteObject acTable, "FHL"
' Link AppNew
DoCmd.TransferDatabase acLink, "Microsoft Access", "d:\mobile\invpublic.mdb", acTable, "FHL", "FHL", False
M_Link_D_Exit:
Exit Function
M_Link_D_Err:
MsgBox Error$
Resume M_Link_D_Exit
End Function