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