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)



"shorticake" <(E-Mail Removed)> wrote in message
news:1A77D749-BAEF-4440-BBCE-(E-Mail Removed)...
> 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

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

"shorticake" wrote:

> 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

Thanks so much Bob!

One last question, is there a way to say not like "*This*" ?


"Bob Phillips" wrote:

>
> 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)
>
>
>
> "shorticake" <(E-Mail Removed)> wrote in message
> news:1A77D749-BAEF-4440-BBCE-(E-Mail Removed)...
> > 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
>
>
>

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)



"shorticake" <(E-Mail Removed)> wrote in message
news:7A3ED077-F58D-43A4-AAFB-(E-Mail Removed)...
> Thanks so much Bob!
>
> One last question, is there a way to say not like "*This*" ?
>
>
> "Bob Phillips" wrote:
>
>>
>> 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)
>>
>>
>>
>> "shorticake" <(E-Mail Removed)> wrote in message
>> news:1A77D749-BAEF-4440-BBCE-(E-Mail Removed)...
>> > 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
>>
>>
>>