I don't understand the question anymore
that's what happens when you click in the cell.
Why, you can't have 2 ore more hypelinks in one cell.
What do you want to accomplish
Try
Sub belle()
Dim oTextBox As TextBox
For Each oTextBox In ActiveSheet.TextBoxes
If oTextBox.Characters.Count = 0 Then oTextBox.Delete
Next oTextBox
End Sub
I don't get it.
At the top of the message list, above the column headings, are two preset filtering options—All and Unread.
When All is selected, every message in the current folder is shown in the message list.
When Unread is selected, only the unread...
This one workks
=IF(C2<=15000;C2*VLOOKUP(B2;A10:D12;3;0);(C2-15000)*VLOOKUP(B2;A10:D12;4;0)+15000*VLOOKUP(B2;A10:D12;3;0))
I want this something like this
=((B10-15000)*D10)+(15000*C10)