how to deal with offset

[bhandari]

[TABLE="width: 128"]
<colgroup><col width="64" span="2" style="width:48pt"> </colgroup><tbody>[TR]
[TD="width: 64"]A[/TD]
[TD="width: 64, align: right"]14[/TD]
[/TR]
[TR]
[TD]B[/TD]
[TD="align: right"]16[/TD]
[/TR]
[TR]
[TD]C[/TD]
[TD="align: right"]68[/TD]
[/TR]
[TR]
[TD]D[/TD]
[TD="align: right"]0[/TD]
[/TR]
[TR]
[TD]E[/TD]
[TD="align: right"]32[/TD]
[/TR]
[TR]
[TD]F[/TD]
[TD="align: right"]25[/TD]
[/TR]
[TR]
[TD]G[/TD]
[TD="align: right"]25[/TD]
[/TR]
[TR]
[TD]H[/TD]
[TD="align: right"]55[/TD]
[/TR]
</tbody>[/TABLE]

Sub using_the_resize_property_to_change_thesizeofRangeMethod1()
Set Rng = Range("B1:B15").Find(what:="0", lookat:=xlWhole, LookIn:=xlValues)
Rng.Offset(, -1).Resize(, 2).Interior.ColorIndex = 15
End Sub

i want D=0 should have color

 

[bhandari]

solved
misiing variable
Dim rng As Range

 

[hiker95]

Bhandari,

Here is an updated macro for you to try:

Sub using_the_resize_property_to_change_thesizeofRangeMethod1_V2()
' hiker95, 10/28/2017, ME1029095
Dim Rng As Range
Set Rng = Range("B1:B15").Find(what:="0", lookat:=xlWhole, LookIn:=xlValues)
Rng.Offset(, -1).Resize(, 2).Interior.ColorIndex = 15
End Sub