why do you want to use select case? I can't see any benefit from it but you would need to use
select case true
Case ActiveWorkbook.Name like "*xxx*"