Error 800a01a8 [Solved/Closed]

Sofy - Jun 21, 2010 at 08:46 AM - Latest reply:  Sofy
- Jun 21, 2010 at 09:18 PM
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

See more 

5 replies

Best answer
rizvisa1 4481 Posts Thursday January 28, 2010Registration dateContributorStatus January 6, 2016 Last seen - Jun 21, 2010 at 03:00 PM
1
Thank you
Try instead of hiding the form, unloading it

Thank you, rizvisa1 1

Something to say? Add comment

CCM has helped 1706 users this month

0
Thank you
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
Ambucias 53195 Posts Monday February 1, 2010Registration dateModeratorStatus July 16, 2018 Last seen - Jun 21, 2010 at 04:40 PM
Hello Sofy,

Rizvisa1 is a total genius in office software problem, you are in good hands. Please consider yourself lucky!
rizvisa1 4481 Posts Thursday January 28, 2010Registration dateContributorStatus January 6, 2016 Last seen - Jun 21, 2010 at 06:23 PM
you are just too kind Ambucias . Thanks for you complements.

Sofy
I am saying
Instead of
UserForm6.Hide

try
unload UserForm6
Hi so far is working, if I have an issues I will lwt you know, thanks