Only cells have a format for numbers. Moreover, a format may be assigned to a range (a collection of cells). Set all cells on each worksheet in the workbook to text using a loop through each worksheet. The approach will be similar; you'll only need to specify the complete sheet. This example specifies the Used Range rather than the entire page. That's not hard; I'm simply keeping the example straightforward.
Sub Format()
    Dim wkshCurrent As Worksheet
    
    For Each wkshCurrent In ActiveWorkbook.Worksheets
        wkshCurrent.UsedRange.NumberFormat = "@"
    Next wkshCurrent
End Sub