how to put hyperlink on message box

[jaik22]

Sub Report()
MsgBox "Report is ready to use"
End Sub

So far I have something like this, but I would like to add a hyperlink of report's path.
If the report's path is C:\Program Files\Acute Data_1000.xlsx is it possible to include a hyperlink on the message box?

Thank you!

 

[Norie]

You can't add a hyperlink to a message box.

What you could do though is have the code hyperlink to the report, perhaps when the user clicks Yes in the message box.

Sub Report()
Dim Resp As VbMsgBoxResult

    Resp = MsgBox("Report is ready to use. Do you want to view it?", vbInformation + vbYesNo, "Report ready")


    If Resp = vbYes Then
        ThisWorkbook.FollowHyperlink "C:\Program Files\Acute Data_1000.xlsx"
    End If
    
End Sub

 

[jaik22]

Hey Norie thanks for the tip, but I am getting object error on code below. Do I have to add something?

Thank you so much for your support!

ThisWorkbook.FollowHyperlink "C:\Program Files\Acute Data_1000.xlsx

 

[Norie]

The code works for me when I use a valid path and filename.

What's error message are you getting?

 

[jaik22]

Thank you! I guess It was a typo. It works now

 

[Rhodie72]

You can't add a hyperlink to a message box.

What you could do though is have the code hyperlink to the report, perhaps when the user clicks Yes in the message box.

Sub Report()
Dim Resp As VbMsgBoxResult

    Resp = MsgBox("Report is ready to use. Do you want to view it?", vbInformation + vbYesNo, "Report ready")


    If Resp = vbYes Then
        ThisWorkbook.FollowHyperlink "C:\Program Files\Acute Data_1000.xlsx"
    End If
    
End Sub

an alternative is

Sub Report()

    If MsgBox("Report is ready to use. Do you want to view it?", vbInformation + vbYesNo, "Report ready") = vbYes Then
        ThisWorkbook.FollowHyperlink environ("UserProfile") & "Documents\Acute Data_1000.xlsx"
    End If
    
End Sub