How to make the result of this function "clickable"?

[makiwara]

Hi!

I have the following code:

Public Function urlID(InputCell As String)


Dim s As String
s = "https://google.com/"


urlID = s & InputCell




End Function

But the result is just for example: "www.google.com/table" with black colour.

How can I make it a clickable Hyperlink (within that function)? Thank you for your help, it means me a lot! Have a nice day!

 

[Tetra201]

Will a native Excel HYPERLINK function work for you?

=HYPERLINK("https://google.com/"&A1)

 

[makiwara]

Thank you for your reply!

I'm using your method actually, but it takes too much time to type the start of the url every time, because I have 5-6 types of URL-s which has to be generated

How could I insert this thing into one VBA Function Procedure?

I really appreciate any help I got, since I'm stucked with this problem for 3-4 days!

Thank you for your help!
Have a very nice day!

Will a native Excel HYPERLINK function work for you?

=HYPERLINK("https://google.com/"&A1)

 

[Norie]

I'm sorry but you can only use a UDF to return a value, you can't use one to create a hyperlink in a cell/on a worksheet.