I wonder why people ALWAYS leave out the most important part of the code. In this case, the code that sets the Select Case variable variable.

I see the problem! In every case the criteria is hardcoded to "32," there fore you must insure that in every case the column has "32" in it.

Case Solved

I am totally guessing about what code you have and what is raising the error, but...
    Set NewBook = Workbooks.Add
    Workbooks.Open "M:\John\" & FName
    With Worksheets(WorkSheetPull)
        .AutoFilterMode = False

 Select Case Johnatha
Case 1
        If Not .Columns(4).Find(32) Is Nothing Then
        .Cells(1).AutoFilter Field:=4, Criteria1:=32
        If .AutoFilter.Range.Rows.Count > 1 Then
            .UsedRange.Columns(1).Offset(1).Resize(, 3).SpecialCells(12).Copy NewBook.Worksheets("Sheet1").Cells(1)
            .UsedRange.Columns(4).Offset(1).Resize(, 2).SpecialCells(12).Copy NewBook.Worksheets("Sheet1").Cells(4)
        End If
    End If
Case 2
If Not .Columns(6).Find(32) Is Nothing Then       
'Etc