MsgBox
Matthias
folgendes Problem:
Private Sub Workbook_Open()
Worksheets("Main Menu").ScrollArea = "A$1:$A$25"
Worksheets("Main Menu").Activate
Dim antw
antw = MsgBox("This Management Tool was designed by cui.trainee",5 _ ,"ATTEMTION....")
End If
End Sub
Die MsgBox zeigt obengenannten Text an, sie soll den Text ca. 5 Sekunden anzeigen und dann wieder verschwinden!
Wie muss ich den Befehl aendern?
Danke
Matthias