Running Line Twice

[Mike]

I have the following code that has been running for 2 months without any
problems until this week. Now it seems to run the followhyerlink 2, this
first time just fine it open the excel file and runs what it needs then it
put the following error up if I hit cancel it will not run the rest of the
function. If I hit ok it runs the hyperlink again.

Opening file name

Some files can contain viruses or otherwise be harmful to your computer. It
is important to be certrain that this file is from a trustworky source.

Would you like to open this File?




Function GetTrans()
DoCmd.SetWarnings False
p = MsgBox("You are about to Update Transactions" & Chr(13) & "Are you
sure you want to continue?", vbOKCancel)
If p = 1 Then
Application.FollowHyperlink
"\\wc.peppermillcas.com\wcdfs\WCCom\Acct\Comps\Comps.xlsm"
DoCmd.TransferSpreadsheet acImport, 10, "Transactions",
"\\wc.peppermillcas.com\wcdfs\WCCom\Acct\Comps\Comps.xlsm", True, ""
Else: p = MsgBox("DID NOT UPDATE", vbOKOnly)
End If
DoCmd.SetWarnings True
End Function