Dim myLastRow As Integer
Dim myRow As Integer
myLastRow = Sheet("Sheet1").UsedRange.Rows.Count 'Change the name of the sheet here
myRow = 2
Do Until myRow = myLastRow
If Sheets("Sheet1").Cells(myRow, 1) = "Apple" Then 'Change the strings you want to find and input
Sheets("Sheet1").Cells(myRow, 6) = "Boy"
myRow = myRow + 1
No worries, CV.
I fixed it by changing Sheet to Sheets.
As for the upper / lower case, I realised that it's not necessary after all as your code recognises upper / lower case anyway.
Thanks for your help. I appreciate it.