Report Not Working

Just to fill you in on what I am doing, I am am putting a report macro in my spreadsheet that looks to see if a value meets the criteria if it does then it will copy a selection of cells data from that sheet into a new sheet. It will do this for all the sheets so in theory I should end up with a simmilar kind of report function to access. The problem is to when I do this the data does not appear, I do not know why.

Private Sub cmdPoor_Click()
Dim sheet As Worksheet
For Each sheet In Worksheets
If Not sheet.Name = "Main" Then
If Not sheet.Name = "Template" Then
If Not sheet.Name = "Help" Then
sheet.Select
If Range("L44").Value = Poor Then
Dim strName As String
Dim strSurname As String
strName = Range("L41").Value
strSurname = Range("L42").Value...................