Select Case Combine With Like

I have a multiple condition and i try using Select case rather than If else. However i try to combine Select case with Like operator but it's not running as it should.

Code:

Sub SetHeader (FuncName as String)
Dim xSheet as Worksheet

Select Case FuncName
Case Is = "_EXCRT"
Set xSheet = Activeworkbooks.Sheets(FuncName)

[Code] .........

This code running good with first case but it will not goto second case even the FuncName string are : "_MB51_00" or "_MB51_01".