staci takto?
Sub Makro()
For x = 1 To Sheets.Count
If Sheets(x).Cells(1, 1) = "1" Then blabla
If Sheets(x).Cells(1, 1) = "0" Then blabla
Next
End Subcitovat
Sub Makro()
For x = 1 To Sheets.Count
If Sheets(x).Cells(1, 1) = "1" Then blabla
If Sheets(x).Cells(1, 1) = "0" Then blabla
Next
End Subcitovat