Greetings;
Following code works fine. 
Select Case True
    Case Mid(ThisWorkbook.Name, 7, 2) Like "01", _
         Mid(ThisWorkbook.Name, 7, 2) Like "02", _
         Mid(ThisWorkbook.Name, 7, 2) Like "03", _
         Mid(ThisWorkbook.Name, 7, 2) Like "04", _
         Mid(ThisWorkbook.Name, 7, 2) Like "05", _
         Mid(ThisWorkbook.Name, 7, 2) Like "06", _
         Mid(ThisWorkbook.Name, 7, 2) Like "07", _
         Mid(ThisWorkbook.Name, 7, 2) Like "08", _
         Mid(ThisWorkbook.Name, 7, 2) Like "09", _
         Mid(ThisWorkbook.Name, 7, 2) Like "10", _
         Mid(ThisWorkbook.Name, 7, 2) Like "11", _
         Mid(ThisWorkbook.Name, 7, 2) Like "12", _
         Mid(ThisWorkbook.Name, 7, 2) Like "13", _
         Mid(ThisWorkbook.Name, 7, 2) Like "14", _
         Mid(ThisWorkbook.Name, 7, 2) Like "15", _
         Mid(ThisWorkbook.Name, 7, 2) Like "16", _
         Mid(ThisWorkbook.Name, 7, 2) Like "17", _
         Mid(ThisWorkbook.Name, 7, 2) Like "16", _
         Mid(ThisWorkbook.Name, 7, 2) Like "19", _
         Mid(ThisWorkbook.Name, 7, 2) Like "20", _
         Mid(ThisWorkbook.Name, 7, 2) Like "21", _
         Mid(ThisWorkbook.Name, 7, 2) Like "22", _
         Mid(ThisWorkbook.Name, 7, 2) Like "23", _
         Mid(ThisWorkbook.Name, 7, 2) Like "24"
    Case Else
         MsgBox "It is not between 01 and 31"
End Select
But I can not add Mid(ThisWorkbook.Name, 7, 2) Like "25", _ because following Error occurs;
http://i.cubeupload.com/Fvuq3Y.jpg

This is Microsoft's answer.
https://msdn.microsoft.com/en-us/lib.../gg264236.aspx

So, any recommendation to solve this?