Macro to create name sheet using an input box with default text in sheet name

hi all!

i've tried to find a solution to this problem online for a while now but haven't been able to do so, so was hoping someone can help!

i've created the following macro below which duplicates a template sheet, and comes up with an input box to prompt the user to name the sheet. what i would like to add is the default text "CAI" to every duplicated sheet so the user only has to insert a number.


Sub Copy_CAI_Template()

Dim Actsheet As String
Application.ScreenUpdating = False
On Error Resume Next
ActiveWorkbook.Sheets("CAI Template").Visible = True
ActiveWorkbook.Sheets("CAI Template").Copy _
After:=Sheets(Sheets.Count)
ActNm = ActiveSheet.Name
ActiveSheet.Name = InputBox("Enter new CAI reference number")
Sheets(ActiveSheet.Name).Visible = True
ActiveWorkbook.Sheets("CAI Template").Visible = False
Application.ScreenUpdating = True
End Sub


i would appreciate any help!

Originally Posted by rorya

You can add it in the code like this:

Please Login or Register  to view this content.

thank you, worked perfectly!

rep added!