Private Sub cmdLink_Click()

Dim myExplorer As Object
Dim myNameSpace As Outlook.NameSpace
Dim myFolder, myFolder1, myFolder2, myFolder3, myFolder4 As
Outlook.MAPIFolder
Dim myFolders As Outlook.Folders
Set myNameSpace = Application.GetNamespace("MAPI")

Set myFolders = myNameSpace.Folders("Public Folders").Folders
 For Each myFolder In myFolders
   If myFolder.name = "All Public Folders" Then
     For Each myFolder1 In myFolder.Folders
       If myFolder1.name = "PT" Then
         For Each myFolder2 In myFolder1.Folders
           If myFolder2.name = "Help Desk Application" Then
             For Each myFolder3 In myFolder2.Folders
               If myFolder3.name = "PTHelp" Then
                 frmnovoAHT.Hide
                 Set myExplorer = myFolder3.GetExplorer
                 myExplorer.Activate
                 Call myFolder3.Display
                 Exit Sub
               End If
             Next
           End If
         Next
       End If
     Next
   End If
 Next
End Sub