Sub PositiveLoeschen()
    Dim i As Integer
 
    i = 1
    Do Until ActiveWorkbook.ActiveSheet.Name = "3"
        ThisWorkbook.Worksheets(i).Select
        Range("A1").Select
        If ActiveCell.Value > 0 Then ActiveCell.Value = 0
    i = i + 1
    Loop
End Sub