delete row

[gregork]

Hi,
On the following code, in the last line, what do I write to delete the
entire row the match returns?

Dim anotherrng As Range, anotherres As Variant, anotherrng1 As Range
Dim lookup_value
lookup_value = Sheets("Blend Sheet").Range("O3").Text & _
CStr(ComboBox1.Text)
Set rng = Worksheets("Blending Details").Range("I2:I6000")

res = Application.Match(lookup_value, rng, 0)

If Not IsError(res) Then
Set rng1 = rng(res)
rng1.Offset(0, -1).Value = ""

Regards
gregork

 

[Frank Kabel]

Hi
try
rng1.entirerow.delete

 

[gregork]

Hi Frank,
Many thanks again Frank

Regards
gregorK