Dim wb As Workbook
Dim ws As Worksheet

For Each wb In Workbooks
'Test to see if wb's name is like "ExportedData*"
If wb.Name Like "ExportedData*" Then
'Create a worksheet object to reference the appropriate
'worksheet in the wb

'Why does this work...
Set ws = wb.ActiveSheet

'But this doesn't?
Set ws = wb.Worksheet("Tally sheet")

How do I make the second one work? Once I find the specified workbook I
need to select a specific sheet (Tally Sheet) in the workbook.

Try

Set ws = wb.Worksheets("Tally sheet")
--
If this post helps click Yes
---------------
Jacob Skaria


"Bishop" wrote:

Dim wb As Workbook
Dim ws As Worksheet

For Each wb In Workbooks
'Test to see if wb's name is like "ExportedData*"
If wb.Name Like "ExportedData*" Then
'Create a worksheet object to reference the appropriate
'worksheet in the wb

'Why does this work...
Set ws = wb.ActiveSheet

'But this doesn't?
Set ws = wb.Worksheet("Tally sheet")

How do I make the second one work? Once I find the specified workbook I
need to select a specific sheet (Tally Sheet) in the workbook.

On May 21, 12:22*pm, Bishop wrote:
Dim wb As Workbook
Dim ws As Worksheet

For Each wb In Workbooks
* 'Test to see if wb's name is like "ExportedData*"
* If wb.Name Like "ExportedData*" Then
* * 'Create a worksheet object to reference the appropriate
* * 'worksheet in the wb

'Why does this work...
Set ws = wb.ActiveSheet

'But this doesn't?
Set ws = wb.Worksheet("Tally sheet")

How do I make the second one work? *Once I find the specified workbook I
need to select a specific sheet (Tally Sheet) in the workbook.

Bishop,

You are missing an "s" on the end of "Worksheet" in your second
example. It should read "Set ws = wb.Worksheets("Tally sheet")".

Best,

Matthew Herbert