Bom dia Amigos,

Essa questão acho que é fácil mas não consegui solucionar. Tenho uma rotina em um botão de pesquisa, com o nome abaixo:

Private Sub CommandButton3_Click()

Então tenho outro botão que altera o status dos pedidos, e estou querendo que após a execução da rotina de alteração, seja executada a função que está no botão informado anteriormente.

Segue abaixo código:

Private Sub CommandButton8_Click()
Dim i, j, UltimaLinha As Integer
UltimaLinha = Sheets("Pedidos").Cells(Cells.Rows.Count, 1).End(xlUp).Row
If UltimaLinha < 3 Then UltimaLinha = 3
    For j = 3 To UltimaLinha
        For i = 0 To ListBox1.ListCount - 1
            If ListBox1.Selected(i) = True Then
                If Sheets("Pedidos").Range("A" & j).Value = Val(ListBox1.List(i)) Then
                    Sheets("Pedidos").Range("M" & j).Value = "NÃO CHEGOU"
                End If
            End If
        Next
    Next
    Unload Me
    Menu_Conferencia.Show
End Sub