Extract Data From Multiple Sheets Into One

I am running into at the moment is that where the Select Case is checking if the sheet name starts with the initials and project number, it doesn't seem to recognise if it is correct (and therefore perform the actions). I have stepped through the code and when I use the immediate window to manually check:

? ws.Name Like "TA0632*"

I get True as an answer, but the code goes on to the next case as though it is false. Here is the code I have so far, which I'm sure can be trimmed down loads:

Option Explicit
Dim currCell As Range
Dim c As Long
Dim r As Long
Dim rng
Dim ws As Worksheet
Dim skp As String
Dim LastColumn As Integer

Sub Breakdown()
Dim t
t = Timer
For Each ws In ThisWorkbook.Sheets
Debug.Print "Current sheet is " & ws.Name
CheckSheet...................