Copy data question

[brentm]

I have a workbook where each tab is a specific week with labor data and
another master tab that generates the invoice for the time over a given week.
Is there a way, from the master invoice tab, to copy the needed labor data
from the appropriate tab - possibly through a prompt or entering the week
ending date in a cell on the master tab? Each weekly tab is identical in
format with the data to be copied residing in cell range C2 - F8.

Thanks.

 

[Joel]

Use an Input box like this

Sub Getweekly()

Do
Set myCell = Application.InputBox( _
prompt:="Select a Cell on a Weekly Labor Tab", _
Type:=8)

WrkSheet = myCell.Worksheet.Name

Loop While (WrkSheet = "Master Invoice")

Sheets(WrkSheet).Range("C2:F8").Copy _
Destination:=Sheets("Master Invoice").Range("C2")
End Sub