Sub test()
  Dim c As Range
  For Each c In Selection.Cells
    Debug.Print c.Address
  Next c
End Sub

Option Explicit

Public Function fso() As Object
    Static oFso As Object
    If oFso Is Nothing Then
        Set oFso = CreateObject("Scripting.FileSystemObject")
    End If
    Set fso = oFso
End Function

' Пример от разработчика
Function ShowFolderSize(filespec)
    Dim f As Object, s
    Set f = fso.GetFolder(filespec)
    s = UCase(f.Name) & " uses " & f.Size & " bytes."
    ShowFolderSize = s
End Function

VBA7 = 0

VBA7 = 1

Sub test()
  ActiveCell.Value = String(300, "a")
  ActiveCell.Characters(1, 0).Insert "Дополнительный текст"
End Sub

Sub DeleteStyles()
  Dim s As Style
  For Each s In ActiveWorkbook.Styles
    If Not s.BuiltIn Then
     s.Delete
    End If
  Next s
End Sub

Option Explicit
Sub Macro1()
    Dim iLastRow As Long
    iLastRow = Cells(Rows.Count, 2).End(xlUp).Row
    Cells(iLastRow + 1, 2).Select
    ActiveCell.FormulaR1C1 = "1"
    Application.Run "Macro2"
End Sub
Sub Macro2()
    Dim TimeToRun
    If Time < TimeValue("19:44:00") Then
        MsgBox "СТОП"
    Else
        TimeToRun = Now + TimeValue("00:00:15")
        Application.OnTime TimeToRun, ThisWorkbook.Name & "!Macro1"
    End If
End Sub

If Time < TimeValue("22:31:00") Then