Hi! 
I have a big problem with a macro. I have a excel sheet with different data. I have sometimes to print manually more than 50 number. For example:
[TABLE="width: 500"]
<tbody>[TR]
[TD]001[/TD]
[TD]info 1[/TD]
[/TR]
[TR]
[TD]002[/TD]
[TD]info 2[/TD]
[/TR]
[TR]
[TD]003[/TD]
[TD]etc...[/TD]
[/TR]
[TR]
[TD]004[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]005[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]006[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]007[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]008[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]009[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]010[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
And I have in other sheet a page for printing the bill number (e.g. 001) with its respective information (info 1).
What I need is to copy the number (e.i. 001) to the other sheet. This sheet will automatically actualize the information
with the information of bill 001. And then I can print it. I wanna do a macro to make this steps automatically printing
all bill pages.
I had:
Sub Makro4()
' Makro2 Makro
For Each c In ActiveCell.CurrentRegion.Cells 'cell selected in sheet 1
Sheets("sheet 2").Select
Range("A3:B4").Value = c.Value
ActiveCell.FormulaR1C1 = c.Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("sheet 1").Select
Next
End Sub
but it doesn't work. any ideas?
Thank you in advance

I have a big problem with a macro. I have a excel sheet with different data. I have sometimes to print manually more than 50 number. For example:
[TABLE="width: 500"]
<tbody>[TR]
[TD]001[/TD]
[TD]info 1[/TD]
[/TR]
[TR]
[TD]002[/TD]
[TD]info 2[/TD]
[/TR]
[TR]
[TD]003[/TD]
[TD]etc...[/TD]
[/TR]
[TR]
[TD]004[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]005[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]006[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]007[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]008[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]009[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]010[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
And I have in other sheet a page for printing the bill number (e.g. 001) with its respective information (info 1).
What I need is to copy the number (e.i. 001) to the other sheet. This sheet will automatically actualize the information
with the information of bill 001. And then I can print it. I wanna do a macro to make this steps automatically printing
all bill pages.
I had:
Sub Makro4()
' Makro2 Makro
For Each c In ActiveCell.CurrentRegion.Cells 'cell selected in sheet 1
Sheets("sheet 2").Select
Range("A3:B4").Value = c.Value
ActiveCell.FormulaR1C1 = c.Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("sheet 1").Select
Next
End Sub
but it doesn't work. any ideas?

Thank you in advance