VBA to remove specific text from cells within a column

[amxtomzo]

hello and thanks for looking

in column A, starting in row 4, there dates entered looking like this: "WED., 3/1" ( no quotes in the cells )

I would like to loop through column A, and remove all instances of "WED.,"
Leaving behind just the "3/1" part

I will later add to it, another loop
removing "TUE.,", THUR., and other days of the week

as always thank you very much

Thomas

 

[Joe4]

Maybe something like this (which you can continue to build off for the other days of the week):

Sub MyReplaceMacro()

    Dim lastRow As Long
    Dim myRange As Range
    
'   Find lastRow in column A
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row

'   Set range to look at
    Set myRange = Range("A4:A" & lastRow)
    
'   Replace WED
    myRange.Replace What:="WED., ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
'   Replace FRI
    myRange.Replace What:="FRI., ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
End Sub

 

[amxtomzo]

Joe4

Thank you, works like a charm, and buildable

thank you again

Thomas

 

[Joe4]

You are welcome!