kann mir bitte einer auf Sprünge helfen.
Ich möchte überprüfen ob eine Arbeitsmappe geöffnet, ist wenn ja dann soll ein Tabellenblatt eingefügt werden, wenn nein soll eine neue Arbeitsmappe geöffnet werden.
Danke für eure Hilfe
Gruß Metin
Function WBOpen(n As String) As Boolean
Dim wb As Workbook
For Each wb In Application.Workbooks
If UCase(wb.Name) = UCase(n) Then
WBOpen = True
Exit Function
End If
Next wb
End Function