Delete part of cell value

[Sinner]

Hi,

Below code removes word 'SADMIN' if found as part of a word or in each
cell of column M of
sheet2.
----------------------------------------------------------------------
Sub RMV_SADMIN()
Application.ScreenUpdating = False
Application.DisplayAlerts = False


For Each Cell In Range("sheet2!M:M")


sStr = Trim(Cell.Value)
If Left(sStr, 6) = "SADMIN" Then
Cell.Value = Trim(Right(sStr, Len(sStr) - 6))


End If


Next


Application.ScreenUpdating = True
Application.DisplayAlerts = True


Worksheets("Sheet2").Activate
Range("A1").Select


End Sub

 

[dmoney]

Columns("m:m").Select
Selection.Replace What:="SADMIN", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False