Extract Data (only certain Cells) from Multiple Worksheets

[Korena]

Hi!

I have a workbook for employee attendance and each worksheet (one for each employee) is the exact same format. I need to create a master sheet so I can see info from certain cells. How do I do this?

The workbook is dynamic, I'm always adding or removing an employee worksheet.

I tried this and when I run it I get this error...Compile error: invalid outside procedure...

Sub mcrExtractData()
Dim extractedValue(1 To 34) As Long
Dim i As Integer
For i = 1 To 34
Sheet(i).Activate
extractedValue(i) = Range("D1").Value
Next i
End Sub

I have no Idea what I'm doing!
Thanks for your help!

Example of what I'm trying to create.

Employee Name	Vacation Hours Used	Sick Hours Used	Occurrences
Tom D.	10	20	2
Fred C.	20	10	5

 

[Fluff]

If the employee name in col A is exactly the same as the sheet name, you could just use
=INDIRECT(A2&"!D1")