Sub OpenFileOrFolderOrWebsite() 
     'Shows how to open files and / or folders and / or websites / or create emails using the FollowHyperlink method
    Dim strXLSFile As String, strPDFFile As String, strFolder As String, strWebsite As String 
    Dim strEmail As String, strSubject As String, strEmailHyperlink As String 
     
    strFolder = "C:\Test Files\" 
    strXLSFile = strFolder & "Test1.xls" 
    strPDFFile = strFolder & "Test.pdf" 
    strWebsite = "http://www.vbaexpress.com/" 
     
    strEmail = "mailto:YourEmailHere@Website.com" 
    strSubject = "?subject=Test" 
    strEmailHyperlink = strEmail & strSubject 
     
     '**************FEEL FREE TO COMMENT ANY OF THESE TO TEST JUST ONE ITEM*********
     'Open Folder
    ActiveWorkbook.FollowHyperlink Address:=strFolder, NewWindow:=True 
     'Open excel workbook
    ActiveWorkbook.FollowHyperlink Address:=strXLSFile, NewWindow:=True 
     'Open PDF file
    ActiveWorkbook.FollowHyperlink Address:=strPDFFile, NewWindow:=True 
     'Open VBAX
    ActiveWorkbook.FollowHyperlink Address:=strWebsite, NewWindow:=True 
     'Create New Email
    ActiveWorkbook.FollowHyperlink Address:=strEmailHyperlink, NewWindow:=True 
     '******************************************************************************
End Sub