Option Explicit
Private Sub MoveUpButton_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1.Text = "Произведен двойной щелчок"
    Cancel = False
    Call MoveUpButton_Click
End Sub
Private Sub MoveDownButton_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Cancel = False
    Call MoveDownButton_Click
End Sub

Private Sub MoveUpButton_Click()
    ShiftItem ListBox1, True
End Sub
Private Sub MoveDownButton_Click()
    ShiftItem ListBox1, False
End Sub

Private Sub ShiftItem(ByRef lb As MSForms.Control, bUp As Boolean)
    Dim i%, j%, l()
    With lb
        i = .ListIndex
        If i + bUp >= 0 And i + bUp < lb.ListCount - 1 Then
            l = .List
            For j = 0 To UBound(l, 2)
                swap l(i, j), l(i + (1 Or bUp), j):
            Next
            .List = l
        End If        
    End With
End Sub
Private Sub swap(ByRef a, ByRef b)
    Dim c: c = a: a = b: b = c
End Sub

Private Sub UserForm_Initialize()
    With ListBox1
        .List = [transpose(proper(text(row(r1:r12)*30,"[$-419]mmmm")))]
        .ListIndex = 0
    End With
End Sub

Private Sub OKButton_Click()
    Unload Me
End Sub

Sub ShowDialog()
    UserForm1.Show
End Sub

    if ComboBox1.Text = Worksheets(2).Range("ADM") Then
        application.sendKeys "{esc}", 1
        doEvents
        UserForm1.Show
    endif

=ПОИСКПОЗ(1;ПОИСК("*"&B3;$A$1:A3);)

       With ActiveSheet
            With .Cells(.Rows.Count, 1).End(xlUp)
                With .Offset(-Not IsEmpty(.Value))
                    .Value = Image1.Left
                    .Cells(1, 2) = Image1.Top
                End With
            End With
        End With