Error 800a01a8Solved/Closed

Question

Hello, 


I am having this error every time I try to save a file; " Could not complete the operation due to error 800a01a8". Plus this is the code that Im using:, I dont know if you need a copy of my file to see it


Private Sub ComboBox1_Change()

    If ComboBox1.Value = "UNIVERSAL BOL" Then
        
        Sheet15.Visible = xlSheetVisible
        Sheets("BOL").Select
        UserForm6.Hide
        Sheet16.Visible = xlSheetVeryHidden
        Sheet2.Visible = xlSheetVeryHidden
        Sheet3.Visible = xlSheetVeryHidden

    ElseIf ComboBox1.Value = "BLANK BOL" Then
    
        Sheet16.Visible = xlSheetVisible
        Sheets("BLANK").Select
        UserForm6.Hide
        Sheet15.Visible = xlSheetVeryHidden
        Sheet2.Visible = xlSheetVeryHidden
        Sheet3.Visible = xlSheetVeryHidden
        
    End If
    
   
End Sub

Private Sub CommandButton1_Click()
Sheet2.Visible = xlSheetVisible
Sheet15.Visible = xlSheetVeryHidden
Sheet16.Visible = xlSheetVeryHidden
Sheet3.Visible = xlSheetVeryHidden
UserForm6.Hide
End Sub

Private Sub CommandButton2_Click()
Sheet3.Visible = xlSheetVisible
Sheet15.Visible = xlSheetVeryHidden
Sheet16.Visible = xlSheetVeryHidden
Sheet2.Visible = xlSheetVeryHidden
UserForm6.Hide
End Sub

Private Sub CommandButton4_Click()
    UserForm6.Hide
End Sub

Private Sub Image1_Click()
UserForm7.Show
End Sub

Configuration: Windows XP / Internet Explorer 7.0

rizvisa1 · Answer

Try instead of hiding the form, unloading it

Sofy · Answer

Hi but where in my code do I have tochange from hide to unload?

Here: Sheet15.Visible = xlSheetVisible 
Sheets("BOL").Select 
UserForm6.Hide 

Private Sub CommandButton4_Click() 
UserForm6.Hide 
End Sub 

Because I changed everything and Iam getting an error, please help

Error 800a01a8

2 responses

Subscribe To Our Newsletter!