# How to highlight the cells that satisfies the condition?

MemberQ[IntegerDigits [#], 3] & /@ Range[100]

Grid[ArrayReshape[Range[100], {10, 10}], Frame -> All]


I want to get a 10 by 10 grid, that highlights all the numbers that have the digit 3. I have done the basic two lines, I am just wondering how to put them togher so that I get something like this

Grid[Partition[Item[#, Background -> If[FreeQ[IntegerDigits@#, 3], White, Yellow]] & /@

bgs = Rule @@@