auto delete vba with vba

[d45a3]

hello i have this code running at the opening off the excel

Private Sub Workbook_Open()

Dim Chemin As String, Name As String

Chemin = ActiveWorkbook.FullName
Name = ActiveWorkbook.Name

If Name = "FT Vide.xlsm" Then

    Else
    ActiveSheet.Shapes.Range(Array("Button 24")).Select
    Selection.Delete
End If

End Sub

When the name of the document is not equal to ''FT Empty.xlsm''. I make sure to delete a button on the Excel sheet (button 24). but when I open the document again and the button is no longer. I get a runtime error. Is there a way to insert a command to delete the section where I look for the file name?

 

[rlv01]

The simplest way is probably to use On Error Resume Next

If Name = "FT Vide.xlsm" Then
        
    Else
        On Error Resume Next
        ActiveSheet.Shapes.Range(Array("Button 24")).Select
        Selection.Delete
        On Error GoTo 0
    End If

 

[d45a3]

error 1004

The simplest way is probably to use On Error Resume Next

If Name = "FT Vide.xlsm" Then
       
    Else
        On Error Resume Next
        ActiveSheet.Shapes.Range(Array("Button 24")).Select
        Selection.Delete
        On Error GoTo 0
    End If

tanks the error resume next work good
but i need to ajuste the code

        On Error Resume Next
        ActiveSheet.Shapes.Range(Array("Button 24")).Select.Delete
        On Error GoTo 0

because the fact that it is no longer the button the selection is no longer valid and therefore it selects the last active box of the workbook and removes the box

 

[d45a3]

The simplest way is probably to use On Error Resume Next

If Name = "FT Vide.xlsm" Then
       
    Else
        On Error Resume Next
        ActiveSheet.Shapes.Range(Array("Button 24")).Select
        Selection.Delete
        On Error GoTo 0
    End If

If Name = "FT Vide.xlsm" Then

    Else
       On Error GoTo ErrorHandler
        ActiveSheet.Shapes.Range(Array("Button 24")).Select
       On Error GoTo ErrorHandler
        Selection.Delete
        
End If
ErrorHandler:

i use thas is workind good

 

[rlv01]

Glad you found a solution. For future reference, there is a cleaner way to delete form buttons using the button text (the button caption) instead of "Button 24" (the button name)

Private Sub Workbook_Open()
    Dim B As Button
    If Me.Name <> "FT Vide.xlsm" Then
        For Each B In ActiveSheet.Buttons
            If B.Caption = "Run" Then
                B.Delete  'Delete the button labeled "Run"
            End If
        Next B
    End If
End Sub