Copy and paste data based on text in cell next to it [VBA]

[anarchyflag]

I have some code that I want to check every cell in in the range “A3:AAA3” for a specific text. If the cell contains that text, I want it to copy the text in the cell on the right, to two rows above (see below for illustration):

The copied text will be a date. This is what I have so far:

Sub Weeks_commencing()

Dim c As Range
For Each c In ThisWorkbook.Worksheets("Sheet1").Range("A3:AAA3").Cells
    If c.Value Like "*TEXT*" Then
        c.Offset(ColumnOffset:=1).Copy Destination:=c.Offset(RowOffset:=-2)
    End If
Next c

End Sub

It’s not coming up with an error message, it’s just not doing anything. Have I missed something?

 

[footoo]

Try :

If UCase(c.Value) Like "*TEXT*" Then

 

[anarchyflag]

Try :

If UCase(c.Value) Like "*TEXT*" Then

Hello - thanks for this. It wasn't that, because the "TEXT" thing was just an example, but it did make me realise that I had not formatted the text in the code the same way that it was written in the spreadsheet, which made it work!