I am copying Sheet 1 from my existing workbook into a new workbook. I then need to select other sheets and copy those to the same workbook.
So I do the following:
Dim j As Workbook
Set j = ActiveWorkbook
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
I then need to copy other sheets from Wb to J based on the contents of cells in range A20-A29
So, if Cell A 20 = Booking 1 I need to copy the sheet from Wb to J and name the sheet Booking 1
if Cell A21 = Booking 2, copy the sheet Booking 2 to J and name it Booking 2
and so on until A29
Appreciate your help experts.