Erwin,
Thats weird, because for me they are visible, but okay, haha.
Sub CopySheetMultipleTimes()
Dim n As Variant
Dim i As Integer
On Error Resume Next
n = InputBox("How many copies?")
If n = "" Then Exit Sub
For i = 1 To n
ActiveSheet.Copy , ActiveWorkbook.Sheets(Worksheets.Count)
Cells(2, 4) = Left(Cells(2, 4), 7) & CInt(Mid(Cells(2, 4), 8, 2)) + 10
Cells(3, 4) = Left(Cells(3, 4), 7) & CInt(Mid(Cells(3, 4), 8, 2)) + 10
Cells(4, 4) = Left(Cells(4, 4), 7) & CInt(Mid(Cells(4, 4), 8, 2)) + 10
Cells(5, 4) = Left(Cells(5, 4), 7) & CInt(Mid(Cells(5, 4), 8, 2)) + 10
Cells(6, 4) = Left(Cells(6, 4), 7) & CInt(Mid(Cells(6, 4), 8, 2)) + 10
Next
End Sub
I got it done with this code
Thanks a lot for helping
Bookmarks