Sub DeleteAllShapesOnAllWorksheets()

    Dim Sheet As Worksheet

    Dim Shp As Shape

    For Each ws In Sheets

        For Each Shp In ws.Shapes

            Shp.Delete

        Next Shp

    Next ws

End Sub

​

Sub ForEachCell()

    Dim Cell As Range

    For Each Cell In Sheets("Sheet1").Range("A1:A10")

        Cell.Offset(0, 1).value = Cell.value

    Next Cell

End Sub

​

Sub ForEachSheets()

    Dim ws As Worksheet

    For Each ws In Sheets

        ws.Visible = True

    Next Sheet

End Sub

​

Sub ForEachWorkbooks()

    Dim wb As Workbook

    For Each wb In Workbooks

        wb.Close

    Next wb

End Sub

​

Sub ForEachShape()

    Dim Shp As Shape

    For Each Shp In Sheets("Sheet1").Shapes

        Shp.Delete

    Next Shp

End Sub

​

Sub ForEachCharts()

    Dim cht As ChartObject

    For Each cht In Sheets("Sheet1").ChartObjects

        cht.Delete

    Next cht

End Sub

​

Sub ForEachPivotTables()

    Dim pvt As PivotTable

    For Each pvt In Sheets("Sheet1").PivotTables

        pvt.ClearTable

    Next pvt

End Sub

​

Sub ForEachTables()

    Dim tbl As ListObject

    For Each tbl In Sheets("Sheet1").ListObjects

        tbl.Delete

    Next tbl

End Sub

​

Sub ForEachItemInArray()

    Dim arrValue As Variant

    Dim Item As Variant

    arrValue = Array("Item 1", "Item 2", "Item 3")

    For Each Item In arrValue

        MsgBox Item

    Next Item

End Sub

​

Sub ForEachNumberInNumbers()

    Dim arrNumber(1 To 3) As Integer

    Dim num As Variant

    arrNumber(1) = 10

    arrNumber(2) = 20

    arrNumber(3) = 30

    For Each num In arrNumber

        Msgbox Num

    Next num

End Sub

​

Sub If_Loop()

Dim Cell as Range

  For Each Cell In Range("A2:A6")

    If Cell.Value > 0 Then

      Cell.Offset(0, 1).Value = "Positive"

    ElseIf Cell.Value < 0 Then

      Cell.Offset(0, 1).Value = "Negative"

    Else

      Cell.Offset(0, 1).Value = "Zero"

     End If

  Next Cell

End Sub

​