Thank you Jan Karel Pieterse,

and if i Call a sub which should hide some Worksheets, do i have to pass the Workbook as an Argument or will the expression ThisWorkbook be sufficient?

The root of the question is. How do I work with the variable wb (wb as workbook) when calling multiple subs in my main Sub routine?

Call HideThngs
(or Call HideThings(wb) -> and in the Sub HideThings(wb) of ThisWorkbook i replace ThisWorkbook with wb)

Sub HideThings()
With ThisWorkbook
    .Sheets("Fusionspapier").Visible = False
    .Sheets("Data").Visible = False
    .Sheets("Name").Columns("L:L").EntireColumn.Hidden = True
    .Sheets("Name").Columns("N:N").EntireColumn.Hidden = True
End With
End Sub