loop through cells in range not working

[Sc0tt1e]

Guys help,

Instead of giving me a whole number as in the row number I am getting a number to 3 decimal places. What is wrong with the below code?

Dim MyRange As Range, MyCell As Range
Dim LRow as Long

' Delete entire row if Profit is greater than 0
LRow = ThisWorkbook.Sheets(3).Range("G" & Rows.Count).End(xlUp).row
Set MyRange = ThisWorkbook.Sheets(3).Range("G2:G" & LRow)
    For Each MyCell In MyRange
        If MyCell.Value <> "" And MyCell.Value > 0 Then Rows(MyCell).EntireRow.Delete Else
    Next MyCell