Macro to Create Hyperlink with Sheet Name/Cell Reference Message Box

I am wondering if anyone can help with writing a macro to execute on a ctrl+w and does the following:
Pop up a Userform with a TextBox
(I type a specific sheet name within the same Workbook and hit enter to exit the Userform)
The active cell I am in creates a hyperlink to the typed in sheet name reference in cell B11
Error message for improper sheet name

Can anyone help me out??

Hello yohanmcdonald,

I'm close to working something out for you but am wondering if the hyperlink is supposed to always reference B11 of whatever sheet name is entered in the userform?

That's what it seemed like in your original post but i'm wanting clarification.

Thanks,

DarkF1ame

yohanmcdonald,

I have come up with something that I feel meets your needs. Upon pressing Ctrl+w the currently selected cell's formula becomes a hyperlink to SheetName (specified by the User Form) Range B11. If the sheet name is blank or doesn't exist it will throw a message box and then do nothing.

Hope you are able to pull the userform and macros into your own sheet.

Let me know if I can help further.

Thanks,

DarkF1ame

Is the cell currently just displaying a formula and not actively making calculations? I don't know of a way to have a cell be both a formula and a hyperlink. If you want a formula displayed instead of the word link that can be done.

Let me know,

DF

yohanmcdonald,

I think I got it. In the OKButton_Click() macro make the following changes in the lines before defining "link":

Please Login or Register  to view this content.

Let me know if that works, it looks like its working on my end.

DarkF1ame

Glad it worked out. Have a nice day!