Perhaps

Dim ws As Worksheet

For Each ws In Worksheets
    ws.ShowAllData
Next ws