Right, with the help of rondebruin, I have made a start. But still need help fine tunning it.
Need to change the search criteria? Need to search for more values, but cant seem to get it to work.
Also it searches for blank cells at the moment, how do I stop this? And it only searches one sheet? Cant seem to amend this for multiple sheets.
Someone Please help! My Vba is rubbish, but im really trying on this one
See code so far:
Sub Mark_cells_in_column()
Dim FirstAddress As String
Dim MyArr As Variant
Dim Rng As Range
Dim I As Long

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

MyArr = Array(Range("A1").Value, Range("A2").Value)
With Sheets("Sheet2").Range("A:A")

.Offset(0, 1).ClearContents
For I = LBound(MyArr) To UBound(MyArr)

Set Rng = .Find(What:=MyArr(I), _
After:=.Cells(.Cells.Count), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)

If Not Rng Is Nothing Then
FirstAddress = Rng.Address
   Do
Rng.Offset(0, 1).Value = Range("B1").Value
Rng.Offset(0, 2).Value = Range("C1").Value
Set Rng = .FindNext(Rng)
Loop While Not Rng Is Nothing And Rng.Address <> FirstAddress
End If
Next I
End With
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
This was posted in one of my previous posts, but no luck so far. If you look at my previous post you can see an explanation of what I need it to do. Thanks