UserForm_Форма.StartUpPosition = 0
 UserForm_Форма.Left = 50
 UserForm_Форма.Top = 50
 UserForm_Форма.Show

Public Function ZZZ()
 Debug.Print "вызов"
End Function

Private Function qwe()
 Call Evaluate("=ZZZ()")
End Function

Debug.Print 255*400

Dim n!: n=255*400

Debug.Print 255*400 'Overflow
Debug.Print 255*400& 'No Overflow

Debug.Print 255.0*400 'No Overflow

Private Function qwe1()
 UserForm1.Show
 UserForm1.MultiPage1.Page2.Label1.Font.Bold = True
 UserForm1.Label2.Font.Bold = True
End Function
 
Private Function qwe2()
 With UserForm1.Label2
  .Caption = "werwer"
  .Font.Bold = False
 End With
 
 With UserForm1.MultiPage1.Page2.Label1
  .Caption = "werwer"
  .Font.Bold = False
 End With
End Function

Private Sub qwe()
 dПутьФайла$=
 
 With Application
  .Workbooks.Open Filename:=dПутьФайла$
  dИмяФайла$ = CreateObject("Scripting.FileSystemObject").GetFileName(dПутьФайла$)
  With .Workbooks(dИмяФайла$)
   For Each Ws In .Worksheets
    '
   Next Ws
   'Set Ws = .Worksheets("qwe")
  End With
  .Workbooks(dИмяФайла$).Save
  .Workbooks(dИмяФайла$).Close
 End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
 a = 1 / 0
End Sub

Private Sub CommandButton1_Click()
 dПутьФайла$ =  
 With Application
  .AutomationSecurity = msoAutomationSecurityLow
  .Workbooks.Open Filename:=dПутьФайла$
  dИмяФайла$ = CreateObject("Scripting.FileSystemObject").GetFileName(dПутьФайла$)
  
  With .Workbooks(dИмяФайла$).Worksheets(1)
   For Each ob In .OLEObjects
    ob.Delete
   Next
   .Range("A1") = "+"
  End With
 End With
End Sub

For Each ob In .OLEObjects
 ob.Delete
Next

Sub Макрос1()
    Sheets("Лист1").Select
    With ActiveWorkbook.Sheets("Лист1").Tab
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
End Sub

Sub ColumnSelect(ByVal i As Long)
    Dim col As Range, rng As Range, cell As Range, c As New Collection
    Set col = Columns(i)
    For Each rng In col.Cells
        If rng.MergeCells = False Then
            Set cell = rng
            Exit For
        End If
    Next rng
    For Each rng In Application.Intersect(col, ActiveSheet.UsedRange)
        If rng.MergeCells Then
            c.Add rng.MergeArea
            rng.UnMerge
        End If
    Next rng
    col.Select
    cell.Activate
    For Each rng In c
        rng.Merge
    Next rng
End Sub

Private Sub qwe()
 ThisWorkbook.Worksheets("Bulk").Delete
End Sub

Private Sub Class_Terminate()
End Sub

Private dКоллекцияОтслеживаемыхЛистов As New Collection
 
Private Sub Class_Terminate()
End Sub
 
Public Function fРабочийЛист(dИмяРабочегоЛиста$)
 dКоллекцияОтслеживаемыхЛистов.Add Item:=New cClass, Key:=dИмяРабочегоЛиста$
End Function

Private dqwe As cMain
 
Private Sub Worksheet_Activate()
 Set dqwe = New cMain
 Call dqwe.fРабочийЛист("")
End Sub

Private Function qwe()
 Stop
End Function

Private Function qwe()
 While True
  DoEvents
 Wend
End Function

Private Function qwe()
 While True: DoEvents: Wend
End Function

Public Function fНП(ParamArray Mas())
 For i& = 0 To UBound(Mas)
  If Len(Mas(i&)) > 0 Then
   fНП = Mas(i&): Exit Function
  End If
 Next i&
 fНП = ""
End Function

Sub main()
    Call ColumnSelect(1)
End Sub
 
Sub ColumnSelect(ByVal i As Long)
    Dim col As Range, cell As Range
    Set col = Columns(i)
    For Each cell In col.Cells
        If cell.MergeCells = False Then
            Exit For
        End If
    Next cell
    Application.Goto Reference:=cell.Address(, , xlR1C1) & "," & "R1C" & i & ":R" & Rows.Count & "C" & i
End Sub