Show cell value(text) in comment box text, or mouse tool tip on an gif icon

Leith, I been using this function a lot and very effectively, I can believe I can pack so much information in one cell (Charts, data range, etc).

Ones again thanks for the code.

I got one question how can I make the Function be dynamic as it is when I linked to only one cell? ....When I link the Function with one cell, and the value (text)in this cell is changed in the "linked cell" the comment text on the cell were I inserted the Function changes, but when I use it in a range and I change some of the values of the range it doesnt "update" the value of the comment text.

Also one more question on Application.Volatile; is this (volatile) requiered if you only use text values in cells?

Hello JIBG,

Glad you like it. I am not sure I follow what you mean with applying the function to Range. It is constructed to work with a single cell value. Can you give me an example of the range application?

The Application.Volatile statement is used in VBA macro to ensure the macro fires whenever Excel recalculates. This is used only with a UDF macro. The same macro will run in VBA. The Application.Volatile statement will be ignored.

Sincerely,
Leith Ross

Leith,
Thanks again for the replay. I was able to troubleshoot what was the problem; I have a range linked with the Function, but this column is the concatenation of 5 columns, and I was inserting a space between the cell name and the concatenation character “&”, after removed the space everything work fine. Now that I found the root cause of that problem, I got another question;
How can I remove the space character (□) in this Function, when I link the data (all of this data are string word) the character appears in every empty cell or in a carriage return.
See attached

Thanks for you help!

Hello JIBG,

There a coupe o ways to remove unwanted characters from a string.

'Removes preceding and trailing spaces
 NewString = Trim("  My String  ")

'Removes embedded spaces by replacing spaces with an empty string
 NewString = Replace("  My String  ", " ", "")

'Removes non printable characters (ASCII 1 - 31) from the string
 MyString = "  My String  " & vbCrLf
 NewString = Application.WorksheetFunction.Clean(MyString)

Siincerely,
Leith Ross