find values under 20% across worksheets and list said worksheets

[adamprocter]

I would like my Macro to go into all works sheets and look at the last row of I matching todays date and if this value is under 20% then to paste the name of that worksheet back into the master worksheet allowing a quick overview of under performing data.

I think I have got the selection process right but am not sure on pasting back into main worksheet and at the moment I get undefined error for .Rows ?!
Any help much appriciated

Sub PerformanceMacro()
 
    
    Dim SheetName As Worksheet
    Dim ws1 As Worksheet
    Dim rcMatch As Variant
    Dim LastRow As Long
    
    Set ws1 = ThisWorkbook.Worksheets("Execution Screen (login)")
    
    For Each SheetName In Worksheets
             
                LastRow = .Cells(.Rows.Count, "I").End(xlUp).Row
                          rcMatch = Application.Match(CLng(Date), .Range("A1:A" & LastRow), 0)
                If IsNumeric(rcMatch) < "20.00" Then
                    'Paste into ws1 worksheet into Col o rows 6/8/10/12 forever the name of worksheert any that are under 20%
                End If
           
          
    Next SheetName

End Sub

 

[igold]

Does this work for you... (Clear your errors)

Sub PerformanceMacro()
 
    
    Dim SheetName As Worksheet
    Dim ws1 As Worksheet
    Dim rcMatch As Variant
    Dim LastRow As Long
    
    Set ws1 = ThisWorkbook.Worksheets("Execution Screen (login)")
    
    For Each SheetName In Worksheets
                With SheetName
                LastRow = .Cells(.Rows.Count, "I").End(xlUp).Row
                          rcMatch = Application.Match(CLng(Date), .Range("A1:A" & LastRow), 0)
                End With
                If IsNumeric(rcMatch) < "20.00" Then
                    'Paste into ws1 worksheet into Col o rows 6/8/10/12 forever the name of worksheert any that are under 20%
                End If
           
          
    Next SheetName

End Sub

 

[adamprocter]

Thanks ! yes that clears the error, now to work out the IF bit.