Giúp đỡ cái VBA gấp

Tình hình t đang có 1 file có 200 sheets, tìm cái VBA tạo 200 sheets này thành 200 cái file. T đã test thử cái này cho 1 file 4 sheet thì k sao

Sub Splitbook()
'Update20190816
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
xWs.Copy
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Tuy nhiên khi lên đến cái file của t cứ bị cái lỗi này: Run time 1004 : copy method of worksheet class failed

Nhờ các đại cao thủ giúp đỡ , mai phải gửi gấp đi cho 200 nhà cung cấp.

m tham khảo cách ở đây xem sao nhé