Chào thầy. Em muốn tạo một code tách sheet và đưa...

Chào thầy. Em muốn tạo một code tách sheet và đưa vào add-ins. Tuy nhiên sau khi đưa vào add-ins rồi thì nó không hoạt động trên workbook mà em muốn tách mà chỉ tách cái worbook mà em đã tạo code tách sheet. Nhờ thầy xem giúp em như sau
1. Code này đã đúng để có thể áp dụng chung không ạ. nếu không thì nhờ thầy hỗ trợ chỉ em cần chỉnh chỗ nào hoặc gợi ý giúp em.

Sub tach_sheet()
Dim Ws As Worksheet
Dim xPath As String
xPath = Application.ActiveWorkbook.Path

Application.ScreenUpdating = False
Application.DisplayAlerts = False

For Each Ws In Worksheets
Ws.Copy
ActiveWorkbook.SaveAs Filename:=xPath & "\" & Ws.Name & ".xls"
ActiveWorkbook.Close False

Next

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

2. Nếu code có thể dùng chung thì em bị sai chỗ nào ạ. Nhờ thầy hướng dẫn giúp
Em cảm ơn