My error is at
r.EntireRow.delete

[VBA]
Sub delete()
Dim r As Long
Dim lrow As Long
Dim wb1 As Workbook
Dim ws1 As Worksheet
Set wb1 = Workbooks("Tgsupdater.xls")
Set ws1 = Worksheets("Update")
lrow = ws1.Cells(Rows.Count, "A").End(xlUp).Row
For r = 1 To lrow
If Cells(r, "G").Value > 998 Then r.EntireRow.delete
Next r
End Sub

[/VBA]

thx,

YLP