Find cells in a range matching cells in another range and clear contents VBA

[danno79]

Hi the follwing piece of code finds the left three chars of cell h116 in rng m44:m75 and clears contents of the cell. I would like to modify it so that it checks for a range of different characters i.e in H116:H147 (what i thought was the obvious did not work);-

With ActiveSheet
    For Each cell In .Range("M44:M75")
        If Left(cell.Value, 3) = .Range("H116:147").Value Then
            cell.ClearContents
            cell.Interior.ColorIndex = xlNone
        End If
    Next
End With

Thanks

 

[StuLux]

Try this, it uses x to step through the cells in the range H116 to H147

With ActiveSheet
Dim x As Integer

For x = 116 To 147
        For Each cell In .Range("M44:M75")
            If Left(cell.Value, 3) = .Range("H" & x).Value Then
                cell.ClearContents
                cell.Interior.ColorIndex = xlNone
            End If
        Next cell
Next x
    End With

 

[danno79]

Thanks Stuart - this is just what iw as after. Iknew there would be a fairly simple way to do it - as you might have guessed i'm still learning....

 

[StuLux]

That's OK, I'm still learning to - Mr Excel is a fantastic resource for help and I have found many solutions by searching this site.