What am I suppose to put this < section to get the row deleted?
I tried writing < Opp.Offset(0, 1).Selection.EntireRow.Delete
but it's not working. Please advise.

Dim shC As Object, shD As Object, Opp As Object, BPRole As Object,
As Long, k As Long

Dim ops As Object

Set shC = Sheets("Results")
Set shD = Sheets("New")
'Name of the spreadsheets

For j = shD.Range("B500").End(xlUp).Row To 1 Step -1
Set Opp = shD.Cells(j, 11)
Set BPRole = shD.Cells(j, 7)
If (Opp = 100000) And (BPRole = "BPA") Then

<

End If
Next

--
Message posted from http://www.ExcelForum.com

What am I suppose to put this < section to get the row deleted?
I tried writing < Opp.Offset(0, 1).Selection.EntireRow.Delete
but it's not working. Please advise.

Dim shC As Object, shD As Object, Opp As Object, BPRole As Object, j
As Long, k As Long

Dim ops As Object

Set shC = Sheets("Results")
Set shD = Sheets("New")
'Name of the spreadsheets

For j = shD.Range("B500").End(xlUp).Row To 1 Step -1
Set Opp = shD.Cells(j, 11)
Set BPRole = shD.Cells(j, 7)
If (Opp = 100000) And (BPRole = "BPA") Then

<

End If
Next j

try this:

If (Opp < 100000) And (BPRole < "BPA") Then
shD.Rows(j).Delete
End If

--
Regards
Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)

Awesome! that worked...

Thank you!

--
Message posted from http://www.ExcelForum.com