Repeat macro on different Sheets

[mville]

Hi,

I want to perform the same macro on different sheets in my workbook. I have 10 sheets for which I want to perform the macro. (Sheet "2007" to Sheet "2016)

This is the code to be executed on every sheet :

Sub SelectName()


Sheets("2007").Select
Range("A" & Cells.Rows.Count).End(xlUp).Select
Range(Cells(Selection.Row, 1), Cells(Selection.Row, 3)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Sheets("BDMV").Select
Range("A" & Cells.Rows.Count).End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste


End Sub

How can i do that?

Thanks

 

[mrshl9898]

You could select all the sheets and do as in a previous thread.

For each ws In ActiveWindow.SelectedSheets[/COLOR]
[COLOR=#333333]ws.Select[/COLOR]
[COLOR=#333333]Range("A" & Cells.Rows.Count).End(xlUp).Select[/COLOR]
[COLOR=#333333]Range(Cells(Selection.Row, 1), Cells(Selection.Row, 3)).Select[/COLOR]
[COLOR=#333333]Range(Selection, Selection.End(xlUp)).Select[/COLOR]
[COLOR=#333333]Selection.Copy[/COLOR]
[COLOR=#333333]Sheets("BDMV").Select[/COLOR]
[COLOR=#333333]Range("A" & Cells.Rows.Count).End(xlUp).Select[/COLOR]
[COLOR=#333333]ActiveCell.Offset(1, 0).Select[/COLOR]
[COLOR=#333333]ActiveSheet.Paste
[/COLOR]
[COLOR=#333333]Next ws
[/COLOR]

 

[Anthony47]

Another option, in addition to what suggested by mrshl9898

Sub SelectNameV2()
Dim mySh, Sh As String
'
mySh = Array("2007", "2008", "2009", "2010")   '<<< The complete list of your sheet to copy from
'
For Each Sh In mySh
    Sheets(Sh).Cells(Rows.Count, 1).End(xlUp).Range("A1:C1").Copy _
       Sheets("BDMV").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Next Sh
End Sub

Bye