Sub getworkbook()
Dim ws As Worksheet
Dim filter As String
Dim targetWorkbook As Workbook, wb As Workbook
Dim Ret As Variant
Set targetWorkbook = Application.ActiveWorkbook
filter = "Text files (*.xlsx),*.xlsx"
Caption = "Bitte wählen Sie eine Datei aus dem VAT Upload Ordner aus "
Ret = Application.GetOpenFilename(filter, , Caption)
If Ret = False Then Exit Sub
Set wb = Workbooks.Open(Ret)
wb.Sheets(1).Move After:=targetWorkbook.Sheets(targetWorkbook.Sheets.Count)
If Workbooks("Woche.xlsx") = True Then
ActiveSheet.Name = "Woche"
Else
ActiveSheet.Name = "Feiertag"
End If