Public Sub pocitej()
Dim cislo As Single
cislo = 0
For i = 1 To ThisWorkbook.Sheets.Count
If Sheets(i).Name <> "aktualni" And Sheets(i).Cells(1, 2) > 100 Then cislo = cislo + Sheets(i).Cells(1, 1)
Next
Sheets("aktualni").Cells(1, 1) = cislo
End Sub
Snad to pomůže.
M@citovat