1: 2: 3: 4: 5: 6: 7:
Private Sub getPDF_Click() Const cstrDrawings = "F:\Customer Drawings\" On Error Resume Next FollowHyperlink cstrPicsFolder & mlcat End Sub