Team leader

Andreas Hermle

<div>
Hi Saqib, great, works like a charm. Thank you very much for it. 
 
I only did a minor tweaking, i.e. on line ' cel.Hyperlinks(1).TextToDisplay = Left(dt, InStr(dt, &quot;REV&quot;) - 1)' I changed -1 to -2 
 
Great job. Thank you very much for it.
</div>

<div>
Great job as always, Saqib, Thank you very much
</div>

<div>
This should also work... 
 

<pre><code class="code-10 nolinks" id="code-20-43011885-1">Sub DeleteSubString()
Dim Rng As Range
Dim cel As Range

Application.ScreenUpdating = False

Set Rng = Selection

For Each cel In Rng
 If InStr(cel.Value, &quot;_REV&quot;) &gt; 0 And cel.Hyperlinks.Count Then
 cel.Value = WorksheetFunction.Replace(cel.Value, InStr(cel.Value, &quot;_REV&quot;), Len(cel.Value), &quot;&quot;)
 End If
Next cel

Application.ScreenUpdating = True
End Sub
</code></pre>
</div>

<div>
<div class="content wysiwyg-content">
Dear Experts: 
 
On the current worksheet I got hundreds of hyperlinks 
 
The text to display of these hyperlinks are as follows: 
 
Examples: 
90-344-75-10_REV_1 
90-422-93-22_REV_4 
90-375-44-11_REV_6 
90-437-22-13 
90-169-58-10 
90-432-74_10_REV_4 
 
So some of them may have the '_REV_X' missing. 
 
For the selected cells I would like to run a macro that eliminates this part (i.e. the '_REV_X' part) and just leaves the number as 'text to display'. 
 
In the above example after running the macro the 'text to display'' for these hyperlinks would look like as follows: 
 
90-344-75-10 
90-422-93-22 
90-375-44-11 
90-437-22-13 
90-169-58-10 
90-432-74_10 
 
 
Help is very much appreciated. Thank you very much in advance. 
 
Regards, Andreas
</div>
</div>

Dear Experts: 

On the current worksheet I got hundreds of hyperlinks

The text to display of these hyperlinks are as follows: 

Examples:
90-344-75-10_REV_1
90-422-93-22_REV_4
90-375-44-11_REV_6
90-437-22-13
90-169-58-10
90-432-74_10_REV_4

So some of them may have the '_REV_X' missing. 

For the selected cells I would like to run a macro that eliminates this part (i.e. the '_REV_X' part) and just leaves the number as 'text to display'. 

In the above example after running the macro the 'text to display'' for these hyperlinks would look like as follows: 

90-344-75-10
90-422-93-22
90-375-44-11
90-437-22-13
90-169-58-10
90-432-74_10


Help is very much appreciated. Thank you very much in advance. 

Regards, Andreas

delete some portion of the 'text to display' for selected hyperlinks

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.