Automate Hyperlinks
 

good day VB debuggers!

I am pondering on how to automate hyperlinks in Excel with the use of a
userform I created in Excel.

[REQUIREMENT]
WHEN THE USER ENTERS REQUIRED DATA IN THE USERFORM,
A HYPERLINK SHOULD BE CREATED FOR THE ALL CELLS IN COLUMN A.
THE HYPERLINK WILL HAVE 3 INSTANCES TO LINK CONTINGENT ON
COLUMN B.
COLUMN A = CONTAINS FILE NUMBERS
COLUMN B = CONTAINS 3 FILE STATUS [OPEN, CLOSE, ARCHIVED]
ONE FILE CAN BE IN ONLY ONE STATUS AT A TIME. WITH THAT SAID, THERE ARE
3 FILE FOLDERS [OPEN, CLOSE, ARCHIVE]
ON THE C: DRIVE.

[CODE I WROTE, BUT NOT SUCCESSFUL]
Private Sub myhyperlink()
If Range("P:P") = openfile Then
Range("A:A") = Hyperlink("C:\Order Folders\2004 Open Orders")
ElseIf Range("P:P") = postfile Then
Range("A:A") = Hyperlink("C:\Order Folders\2004 Post-Close Orders")
ElseIf ("P:P") = archived Then
Range("A:A") = Hyperlink("C:\Order Folders\2004 Archived Orders")
End If
End Sub

WHERE DID I GO WRONG? THANKS IN ADVANCE FOR YOUR HELP AND HAVE A
PLEASANT DAY! MYRNA






*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!