Creating Lists from data across the workbook

Hi Max,

Try this:

Private Sub CommandButton1_Click() 'Clients Converted
Call GenList(4, "Yes", "D", "AH")
End Sub
Private Sub CommandButton2_Click() 'Clients visited
Call GenList(2, "", "AH", "C")
End Sub
Private Sub CommandButton3_Click() 'Clients called
Call GenList(0, "", "AH", "B")
End Sub
Sub GenList(Off As Long, Crit As String, Col As String, Out As String)
Dim shWKs As Worksheet
    Dim shCN As Worksheet
    Dim lngR As Long
    Dim lngC As Long
    
    Set shCN = Worksheets("Overview")
    
    For Each shWKs In Worksheets
    If IsNumeric(Right(shWKs.Name, 2)) Then
                    For lngR = 5 To 60 Step 9
                For lngC = 3 To 17
                    If shWKs.Cells(lngR, lngC).Value <> "" Then
                        shCN.Cells(shCN.Rows.Count, _
                            IIf(shWKs.Cells(lngR + Off, lngC).Value = Crit, Col, Out)) _
                            .End(xlUp)(2).Value = shWKs.Cells(lngR, lngC).Value
                    End If
                Next lngC
            Next lngR
        End If
    Next shWKs
End Sub