Код VBA, показывающий ошибку и не может найти эту ошибку

Question

Я пытаюсь написать код VBA для отображения текстового поля при нажатии на фигуру, но я сталкиваюсь с ошибкой, которая неизвестна. Код ---

Function change_info_box_visibility(Info_button As Object, Info_button_text_box As Object, Visible As Boolean)

    If Visible = True Then
        Info_button.Fill.ForeColor.RGB = RGB(217, 217, 217)
        Info_button_text_box.Visible = True
    Else
        Info_button.Fill.ForeColor.RGB = RGB(255, 255, 255)
        Info_button_text_box.Visible = False
    End If

End Function


Sub display_info_box()

    With ActiveSheet

        If .Shapes("Info_button").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
            Call change_info_box_visibility(.Shapes("Info_button"), .Shapes("Info_button_text_box"), True)
        Else
            Call change_info_box_visibility(.Shapes("Info_button"), .Shapes("Info_button_text_box"), False)

        End If

    End With

End Sub