Runtime error 424 object required (1 người xem)

[meoluoihvtc]

Chào cả nhà,

Em đang viết code tạo sheet mới và đổi tên sheet đó. Tuy nhiên khi chạy thì PM báo lỗi như trên.
Dưới đây là đoạn code:

Sub test1()
Dim ws As Worksheet, ws2 As Worksheet
Set ws = Sheets.Add(After:=Sheets(Sheets.Count)).Name = payroll_1
Set ws2 = Sheets.Add(After:=Sheets(Sheets.Count))
Activesheets.Name = payroll_2
End Sub

Mọi người xem giúp em cách sửa lỗi với ạ.

 

[quocphuoc88]

Sub test1()
Dim ws As Worksheet, ws2 As Worksheet
Sheets.Add(After:=Sheets(Sheets.Count)).Name = "payroll_1"
Sheets.Add(After:=Sheets(Sheets.Count)).Name = "payroll_2"
End Sub

Thử vầy xem !

 

[meoluoihvtc]

Ok, cám ơn bạn.
Vấn đề là mình muốn làm tắt lệnh này sẽ không được đúng không?
Set ws = Sheets.Add(After:=Sheets(Sheets.Count)).Name = "payroll_1"

 

[quocphuoc88]

chắc có lẽ là vậy. Bạn đặt tên trước rồi dùng lệnh Set là được !