out of range (9)

[vered]

Sub CopySheet_CoverSheet(name_workbook_new As String, PO_labor As String)
Sheets("CoverSheet").Select
Range("A:F").Select
Selection.Copy
Workbooks(name_workbook_new & ".xlsx").Activate


Sheets.Add.Name = PO_labor & " - CoverSheet"
Sheets(PO_labor & " - CoverSheet").Select
'Sheets(PO_labor & " - CoverSheet").Activate
ActiveSheet.Paste




Application.CutCopyMode = False
End Sub

the error is not each time
Watch : : name_workbook_new : "1-B.m.u oituxmc PROCESS LTD" : String :
help????

 

[ParamRay]

It will only work if the workbook name_workbook_new is currently open.