Home » Forums » Open Source Learning Center » Question and Answer

Solution for Need to copy a certain sheet to the amount of the value on InputBox

Vikas Verma's picture
Submitted by Vikas Verma on 20 March, 2014 - 10:33

Hi Dear,

Please find attached..

Sub testing()

Dim i As Integer
Dim wkb As Workbook
Dim sh As Worksheet

Set wkb = ThisWorkbook
Set sh = wkb.Sheets("template")
i = VBA.InputBox("Enter a Number")
k = 1
For j = 1 To i

wkb.Sheets("template").Copy after:=Sheets(Sheets.Count)
Set nsh = ActiveSheet
nsh.Name = "New Sheet" & k
k = k + 1

Next j

MsgBox "Done", vbInformation

End Sub

Thanks & regards,

AttachmentSize
Need to copy a certain sheet to the amount of the value on InputBox.xlsm18.37 KB
‹ Need to copy a certain sheet to the amount of the value on InputBox Conditional Format Using Formula ›
»