Dim rng As Range, r As Range, cell As Range
Dim i As Long, x As Long, k As Long, u As Long
Set rng = Range("a1:a" & Cells(65536, "A").End(xlUp).Row)
For Each cell In rng
i = Len(cell.Value)
For x = 1 To i
If Mid(cell.Value, x, 1) = "|" Then
k = x + 2
Do Until Mid(cell.Value, x, 1) = ">"
x = x + 1
u = x - 2
cell.Characters(Start:=k, Length:=u - k).Font.Bold = True
Open in new window
Are you tired of cycling through the same browser tabs everyday to close the same repetitive tickets? In this webinar JumpCloud will show how you can leverage RESTful APIs to build your own PowerShell modules to kill tickets & tabs using the PowerShell command Invoke-RestMethod.
.Replacement.Font.Bold = True
.Text = "(|| )(*)( \>\>)"
.Replacement.Text = "\2"
.MatchWildcards = True
.Execute Replace:=wdReplaceAll, Format:=True, Forward:=True
Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.