The code below allows me to take items from a list and open them in a New Blank Workbook on New sheet and place the items from list box in range A. The New workbook name Saves as my listbox header, which is perfect. ...PROBLEM IS: I would like this new workbook to open not from a blank new book but from a Template Book....Am at a loss on how to do this! Thanks for any help!
Private Sub btn_StartNewSeason_Click()
Dim wbNew As Workbook
Dim wsNew As Worksheet
Dim Rng As Range
Dim i As Long
Dim J As Long
Set wsNew = ThisWorkbook.Worksheets.Add
wsNew.Name = "Client List"
Set Rng = wsNew.Range("A1")
For i = 0 To lstBrandsNewSeason.ListCount - 1
For J = 0 To lstBrandsNewSeason.ColumnCount - 1
Rng.Offset(i, J).Value = lstBrandsNewSeason.List(i, J)
Next J
Next i
wsNew.Move
Set wbNew = ActiveWorkbook
wbNew.SaveAs ThisWorkbook.Path & Application.PathSeparator & txtNewSeasonName.Value
Unload Me
End Sub
Bookmarks