Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim r As Range
For Each ws In Worksheets
ws.Activate
For Each r In ws.UsedRange
MsgBox r
Next r
Next
End Sub