Instring Ucase Shorten Procedure

[Jaye7]

I have the following macro to change a part of a cell if a value is found.

i.e cell value (Help) maybe either of the following 3 examples
Help, help, HELP

Remember there is also text before and after the help value i.e.
123Helpabc

My question is, can someone help with an abbreviated script so that it cuts it down and therefore when I change the script in the future it is easier.

The script I currently use is

Sub test3()
Range(Cells(Rows.Count, "A").End(xlUp), Cells(2, "A")).Select
For Each Cell In Selection
If InStr(Cell.Value, "HELP") > 0 Then
Cell.Value = Mid(Cell.Value, InStr(Cell.Value, "HELP"), 4)
Else
If InStr(Cell.Value, "Help") > 0 Then
Cell.Value = Mid(Cell.Value, InStr(Cell.Value, "Help"), 4)
Else
If InStr(Cell.Value, "help") > 0 Then
Cell.Value = Mid(Cell.Value, InStr(Cell.Value, "help"), 4)
End If
End If
End If
Next Cell
End Sub

 

[Biz]

Try

Sub test()
    Dim Cell As Range, Rng As Range
    Set Rng = Range(Cells(Rows.Count, "A").End(xlUp), Cells(2, "A"))
    For Each Cell In Rng
        If InStr(1, Cell.Value, "HELP", vbTextCompare) > 0 Then
            Cell.Value = Mid(Cell.Value, InStr(1, Cell.Value, "help", vbTextCompare), 4)
        End If
    Next Cell
    
    'Release memory
    Set Rng = Nothing
    
End Sub

Biz

 

[Jaye7]

Brilliant, Thanks very much Biz.

 

[Biz]

Brilliant, Thanks very much Biz.

No Problems m8
Biz