VBA를 사용하는 XL에서 통합 문서의 모든 테이블을 단계별로 실행하고 모든 셀 값을 0으로 설정하는 간단한 방법이 있습니까?

통합 문서의 각 테이블을 반복하고 모든 값을 0으로 설정합니다.

Public Sub PopulateTables()
    Dim ws As Worksheet
    Dim tbl As ListObject
    For Each ws In ThisWorkbook.Sheets
        For Each tbl In ws.ListObjects
            tbl.DataBodyRange.Value2 = 0
        Next tbl
    Next ws
End Sub