I have a 100 worksheet document and need to extract some of the data for an eventual access database. I recorded the macro below to work on a single worksheet, but how can I loop it through all the worksheets? If I run it manually, it just pastes over previous data.

Sub SingleSheet()
'
' SingleSheet Macro
' Macro recorded 3/30/2006 by
'

'
Range("C2").Select
Selection.Copy
Columns("A:A").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight
Range("D2").Select
Selection.Copy
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("A1:A153"), Type:=xlFillDefault
Range("A1:A153").Select
Range("J9:V153,A9:C153,I9:I153").Select
Range("I153").Activate
Selection.Copy
Windows("Orange.xls").Activate
Range("A1").Select
ActiveSheet.Paste
Windows("template.xls").Activate
End Sub