I don't really understand why I get an error when I try to delete a
worksheet
that does not exist. That's the reason I put the "on error" statement
around the code. Is it possible to test whether the worksheet "test"
exists
or not?

Thanks,
Michael

"Tom Ogilvy" wrote in message ...
You would get this error if test does not match the name of a sheet in the
activeworkbook. (could be a spelling error or a matter of extra spaces or
example)

--
Regards,
Tom Ogilvy


wrote in message
om...
Hello,
I wrote following code and sometimes I get an runtime error 9. I don't
really know when and why this error occurs. The value of test is never
empty.


On Error GoTo Marke
Application.DisplayAlerts = False
test = Worksheets("Länderansicht").Range("A" & i).Value
''''''''FEHLER'''''''''''''''''''''''''''''''''''' ''''''''''''''
Worksheets(test).Select ''''''''''HIER TRITT DER FEHLER AUF
'''''''FEHLER''''''''''''''''''''''''''''''''''''' ''''''''''''''
Worksheets("Länderansicht").Select
Worksheets("Länderansicht").Activate
Worksheets(test).Delete
Marke:
Application.DisplayAlerts = True


Tanks a lot,
Michael