Hỏi về code liệt kê tất cả các sheet trong một file? (1 người xem)

[KUMI]

Xin Chào mọi người.
Có code nào liệt kê tất cả các Sheet trong 1 file không ạ?
Ai biết giúp em với nhé!
Chân thành cám ơn.

 

[Quang_Hải]

Xin Chào mọi người.
Có code nào liệt kê tất cả các Sheet trong 1 file không ạ?
Ai biết giúp em với nhé!
Chân thành cám ơn.

Sub Sheet_List()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
   [a65536].End(3).Offset(1) = sh.Name
Next
End Sub

 

[KUMI]

Thật tuyệt vời!Cám ơn thầy nhiều!
Chúc Thầy và mọi người ngủ ngon ạ!