runtime error 9 Subscript Out of Range

Hi,

I created a macro but when i run it i get the error 9 Subscript Out of Range.
The name of the file is the same as in the script of my macro.
What am i doing wrong here?

Sub Kolommen_Scheiden()
Workbooks("Test").Sheets(Sheets.Count).Select

Best regards