Hi,

I'm trying to work out where I'm going wrong with the below but I've been stuck for a while and would appreciate any help.

I have a load of open workbooks to start of with, from where I am going to drag data. I then look to open the following workbook 'Names' which is a list of partial names of files ie cell a1 is MLUD*.xls

What I'm trying to do is select the first cell in the names spreadsheet "single", use this as a reference to activate an already open workbook with the name similar to MLUD*.xls and then copy data from this newly activated workbook (from the worksheet "Raw" to another file.

So far I've tried the below, but I'm obviously missing something in the syntax as it's not working
Any help would be really gratefully appreciated

thanks Joe

Sub MoveData ()

Dim WB As Workbook

Workbooks.Open ("S:\Names")
Worksheets("Single").Range("A1").Select

For Each WB In Application.Workbooks
If WB.Name Like ActiveCell.Value Then
WB.Activate

'Copy & Paste Data

Worksheets("Raw").Select
Range("b7:b10").Select
Application.CutCopyMode = False
Selection.Copy
Workbooks("Macro Examples").Activate
Range("e7").Select
If ActiveCell.Value = "" Then
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Else: ActiveCell.Offset(0, 1).Select
End If




Exit For
End If
Next WB

End Sub