Hi to all, I have these codes which shows error if the value not found, if it found it will open pdf file taking value from cell, is there any way to make this standard message box to stylish box where text has color and are bold and I can add pictures. I search on google about userform to create fancy message boxes but didn't get the proper method to get these codes in userform and work same like they work now.
VBA Code:
Sub quot_PDF_File()
Dim FileNameRef As String, myPath As String, Prompt As String
FileNameRef = Application.WorksheetFunction.Text(Range("B10"), "0000")
myPath = "D:\"
On Error Resume Next
ThisWorkbook.FollowHyperlink myPath & FileNameRef
If Err.Number <> 0 Then
Prompt = "Quotation Number [-]> " & FileNameRef & ".pdf <[-]" & vbNewLine & vbNewLine & _
"NOT FOUND IN BELOW LOCATION" & vbNewLine & vbNewLine & _
"Click to explore folder location" & vbNewLine & vbNewLine & "D:\"
Const TITLE = "PDF file Search & Open"
Const BUTTONS = vbExclamation
Dim lRet As VbMsgBoxResult
Dim sLinksArray(0 To 0, 1) As String
sLinksArray(0, 0) = "D:\": sLinksArray(0, 1) = "D:\"
lRet = HyperlinkMsgBox(Prompt, sLinksArray, BUTTONS, TITLE)
End If
End Sub