VBA - USER DEFINED FUNCTIONS

OBJEKTE:   ARBEITSMAPPE

Sub ÖffneMappe()
MeineMappe = InputBox("Name der zu öffnenden Mappe eingeben:", "Arbeitsmappe öffnen")
Workbooks.Open Filename:=MeineMappe
End Sub

Sub Auto_Öffnen1()
Windows("TEST.XLS").Visible = False
End Sub

Sub Auto_Schließen1()
Workbooks("TEST.XLS").Close SaveChanges:=False
End Sub

Sub Gitternetz() 'Umschalten zwischen Einstellungen
ActiveWindow.DisplayGridlines = _
Not ActiveWindow.DisplayGridlines
End Sub

Sub PfadInFußzeileEinfügen()
MsgBox "The path is " & Application.Path
With ActiveSheet.PageSetup
    .LeftFooter = "File: &F Sheet: &A"
    .CenterFooter = "Page &P"
End With
End Sub