Activate Range for Workbooks Already Open

  • Thread starter Thread starter shorticake
  • Start date Start date
S

shorticake

Could anyone help me with code to search through the file names of workbooks
I already have open, and for each file that meets my search criteria make a
specific worksheet and range active?

Thanks
 
For Each wb In Application.Workbooks

If wb.name Like "*This*" then

wb.Activate
Worksheets(3).Activate
range("A3").Select
End If
Next wb

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)
 
Dim sh As Worksheet
Dim wb As Workbook
For Each wb In Workbooks
If wb.Name <> ThisWorkbook.Name Then
wb.Activate
For Each sh In Active.Workbook.Sheets
If sh ('meets criteria) Then
'Do Something
End If
Next
End If
Next
 
Yeah, but it's tricky

If Not wb.name Like "*This*" then

<VBG>

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)
 
Back
Top