Work on open workbook based on name ending

[stephme55]

Hello. I'm trying to use this to work on a specific name workbook that is open, but it is not reading it correctyly. Am I doing it right?

'Find sheet with EFTPY
For Each wb In Application.Workbooks
    If Right(wb.Name, 5) = "EFTPY.xls" Then
    wb.Activate
'Copy sheets 4 times
        For numtimes = 1 To 4
        wb.Sheets("Sheet1").Copy _
        After:=wb.Sheets("Sheet1")
        Next
    End If
Next
End Sub