This Macro Needs To Run On Multiple Tabs

[seankwest]

Good morning,

I would like this Macro to run on 6 different tabs in a worksheet as one Macro. It is currently only running on the active sheet. The tabs that I need it to run on are labeled "Totals" "New" "Used" "Service" "Parts" "Other Income-Ded"
Any help is greatly appreciated!


Sub ExpenseAnalysis2012()
Dim rngSource As Range
Dim rngDestination As Range
Set rngSource = Range("D3:E90")
Set rngDestination = Cells(3, Columns.Count).End(xlToLeft).Offset(0, 2)
rngSource.Copy
rngDestination.PasteSpecial (xlPasteValues)
End Sub

 

[VoG]

Try

Sub ExpenseAnalysis2012()
Dim rngSource As Range
Dim rngDestination As Range
Dim ws As Worksheet
For Each ws In Sheets(Array("Totals", "New", "Used", "Service", "Parts", "Other Income-Ded"))
    With ws
        Set rngSource = .Range("D3:E90")
        Set rngDestination = .Cells(3, Columns.Count).End(xlToLeft).Offset(0, 2)
        rngSource.Copy
        rngDestination.PasteSpecial (xlPasteValues)
    End With
Next ws
End Sub

 

[CharlesChuckieCharles]

VOG 's is better