need to make a cell with numbers ascend when printed in multiple?
I need to print out 100 plus sheets, with a cell to change numbers in-between
each sheet in ascending numbers. How do i do that? |
If you want 100 copies of one sheet, and if the cell is A1, then
Dim i As Integer For i = 1 To 100 Range("A1").Value = i Activesheet.PrintOut Next i If you have 100+ sheets, and you want to have an incremented number in each of their cell A1: Dim i As Integer Dim mySht As Worksheet For Each mySht In ActiveWorkbook.Worksheets i = i + 1 mySht.Range("A1").Value = i mySht.PrintOut Next mySht HTH, Bernie MS Excel MVP "needhelp" <needhelp @discussions.microsoft.com wrote in message ... I need to print out 100 plus sheets, with a cell to change numbers in-between each sheet in ascending numbers. How do i do that? |
All times are GMT +1. The time now is 06:54 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com