Sheets löschen ohne abfrage
01.08.2005 20:00:29
Wuntschi
ich habe ein weiteres Problem, und zwar ist es so das ich folgendes Makro verwende
Sub Layout_delete()
Dim sh As Worksheet
Dim sName$
sName = InputBox(" Bitte zu löschenden Tabellenname eingeben " & Char13 & "" & Char13 & " (WICHTIG: Ein Blatt muß immer vorhanden sein!) ", "Tabellenblatt löschen")
For Each sh In Worksheets
If sh.Name = sName Then
sh.Select
sh.Delete
End If
Next sh
End Sub
Wenn ich dieses akro nun benutze und einen Namen für das zu löschende Sheet eingebe dann öffnet sich noch eine weitere nachfrage ob es wirklich gelöscht werden soll. wie kann diese überspringen oder automatisch bestätigen?
gruß
wuntschi