look in several sheets and copy rows depending on ..

[papasmurfuo9]

hi
a member kindly provided me with the below for copying over rows from several sheets where column F had #N/A in there,

could someone help with copying rows where column H has a value that is greater than 0.02

thank you!

Dim sCol As String, Ws As Worksheet

sCol = "F:F"

For Each Ws In ThisWorkbook.Worksheets(Array("9034", "5349", "3090", "961", "945", "927"))
    On Error Resume Next
        Ws.Range(sCol).SpecialCells(xlCellTypeFormulas, 16).EntireRow.Copy
        ThisWorkbook.Sheets("Check").Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial xlPasteValues
    On Error GoTo 0
Next Ws
Sheets("Check").Select