Selecting a Workbook using partial name

[Raj999]

Hi All,

Imagine I have 3 Workbooks open with File names ABC12345, DEF54321, GHI00000. These partial names are present in a column of an excel workbook say XYZ (ABC in A1 cell, DEF in A2 cell, GHI in A3 Cell)

I want a macro which can select(or activate) the respective workbook by reading the contents of cells one by one. Please help...!!!

 

[adam087]

Hi. Welcome to the board .

Would some code like this help you to get started?

Option Explicit
Public Sub ActivateWorkbook()
    Dim matchString As String
    Dim wb As Workbook
    Dim cell As Range
    
    Do 'dummy loop
    For Each cell In ThisWorkbook.Sheets("Sheet1").Range("A1:C1") 'Change as required
    For Each wb In Application.Workbooks
        If InStr(1, wb.Name, cell.Value) > 0 Then
            wb.Activate
            Exit Do
        End If
    Next wb
    Next cell
    Loop Until True
End Sub

/AJ

 

[Raj999]

Thanks a lot AJ. It worked as I wanted to.

One more small query : I need to concatenate value of two cells (say A1 and B1) with "-" in between them. Please help me with this.

I am trying this : ActiveCell.Formula = "=CONCATENATE(A2,"-",B2)" but no luck.