Copy a range from multiple worksheets in one workbook to multiple sheets in another workbo

Hi Vinnty,

This works now - (I had an awful time getting the book names right):

Sub VolFormX(): Dim wv As Workbook, wf As Workbook, wsf As Worksheet, wsv As Worksheet
Dim N As String, i As Long, S As String
S = ActiveWorkbook.Name: ActiveCell = S
Set wv = Workbooks("Volumes (new) 1213.xls")
Set wf = Workbooks("Volumes (new) 1213 formula file.xls")
For Each wsf In wf.Worksheets
N = wsf.Name
If N = "Week Lookup" Then GoTo GetNext
Set wsv = wv.Worksheets(N)
i = 7: Do: i = i + 1: Loop Until wsv.Cells(6, i) = ""
wsf.Range("H6:H1000").Copy
wsv.Cells(6, i).PasteSpecial xlPasteValues
GetNext: Next
End Sub