ActiveWindow.SelectedSheets.Delete
Sheets("mitWK (2)").Visible = True
Sheets("mitWK (2)").Copy Before:=Sheets(1)
Sheets("mitWK (3)").Name = "mitWK"
Sheets("mitWK (2)").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("mitWK").Select
Range("L2").Select
beim Ausführen des Makros erscheint die Abfrage: wollen Sie die ausgewählten Blätter endgültig löschen? Kann man diese Abfrage unterdrücken?? Wenn ja wie
schon jetzt vielen Dank für Eure Hilfe
Tone