Macro Modification Needed for Workbook Open

[mayoung]

I currently have this code to check if a workbook is open before proceeding to run the rest of the code. This works great when looking at the whole workbook name. How can this be modified to just look at the beginning
of the workbook name minus the date (Current Hilliard WIP)? Any help would be appreciated. Thank You

Function IsWorkBookOpen(Name As String) As Boolean
    Dim xWb    As Workbook
    On Error Resume Next
    Set xWb = Application.Workbooks.Item(Name)
    IsWorkBookOpen = (Not xWb Is Nothing)
End Function

    Dim xRet   As Boolean
    
    xRet = IsWorkBookOpen("Current Hilliard WIP-01142023.xlsm")
    
    If xRet Then
        MsgBox "Found it, Current Hilliard WIP Is Open, Ok To Continue", vbInformation
        
        End If

 

[dmt32]

Hi,
untested but try this modified version of the function

Private Function IsWorkbookOpen(ByVal wbName As String) As Boolean
    Dim wb As Workbook
    For Each wb In Application.Workbooks
        IsWorkbookOpen = UCase(wb.Name) Like UCase(wbName) & "*"
        If IsWorkbookOpen Then Exit For
    Next wb
End Function

and to call it

Const BookName As String = "Current Hilliard WIP"

    If IsWorkbookOpen(BookName) Then
        MsgBox BookName & " Is Open, Ok To Continue", vbInformation
    End If

Dave

 

[mayoung]

Hi,
untested but try this modified version of the function

Private Function IsWorkbookOpen(ByVal wbName As String) As Boolean
    Dim wb As Workbook
    For Each wb In Application.Workbooks
        IsWorkbookOpen = UCase(wb.Name) Like UCase(wbName) & "*"
        If IsWorkbookOpen Then Exit For
    Next wb
End Function

and to call it

Const BookName As String = "Current Hilliard WIP"

    If IsWorkbookOpen(BookName) Then
        MsgBox BookName & " Is Open, Ok To Continue", vbInformation
    End If

Dave

Thank You

 

[dmt32]

Thank You

Welcome, glad suggestion helped you & appreciate your feedback

Dave