Hi to all!!!

I have two woorkbook opened.
Book1 and Book_cup.
I need to activate Book_cup from Book1 and copy some data with code.
Book_cup change name everyday but is allvays finished with word "cup".

regards
lopina

One way:

Dim wb As Workbook

For Each wb In Workbooks
If wb.Name Like "*cup.xls" Then
With wb.Sheets(1).Range("A1:J100")
ThisWorkbook.Sheets(1).Range("B2").Resize( _
.Rows.Count, .Columns.Count).Value = .Value
End With
Exit For
End If
Next wb

Note that there's no need to activate if you work with range objects
directly.

In article <flljd6$c5o$(E-Mail Removed)>,
"lopina" <(E-Mail Removed)> wrote:

> Hi to all!!!
>
> I have two woorkbook opened.
> Book1 and Book_cup.
> I need to activate Book_cup from Book1 and copy some data with code.
> Book_cup change name everyday but is allvays finished with word "cup".
>
> regards
> lopina

Thanks

It is working

regards
lopina

"JE McGimpsey" <(E-Mail Removed)> wrote in message
news:jemcgimpsey-(E-Mail Removed)...
> One way:
>
> Dim wb As Workbook
>
> For Each wb In Workbooks
> If wb.Name Like "*cup.xls" Then
> With wb.Sheets(1).Range("A1:J100")
> ThisWorkbook.Sheets(1).Range("B2").Resize( _
> .Rows.Count, .Columns.Count).Value = .Value
> End With
> Exit For
> End If
> Next wb
>
> Note that there's no need to activate if you work with range objects
> directly.
>
> In article <flljd6$c5o$(E-Mail Removed)>,
> "lopina" <(E-Mail Removed)> wrote:
>
>> Hi to all!!!
>>
>> I have two woorkbook opened.
>> Book1 and Book_cup.
>> I need to activate Book_cup from Book1 and copy some data with code.
>> Book_cup change name everyday but is allvays finished with word "cup".
>>
>> regards
>> lopina