Error 800a01a8 [Solved/Closed]

- - 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 

2 replies

Best answer
Posts
4476
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
January 6, 2016
1
Thank you
Try instead of hiding the form, unloading it

Thank you, rizvisa1 1

A few words of thanks would be greatly appreciated. Add comment

CCM has helped 2507 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
Posts
50337
Registration date
Monday February 1, 2010
Last seen
November 22, 2018
-
Hello Sofy,

Rizvisa1 is a total genius in office software problem, you are in good hands. Please consider yourself lucky!
rizvisa1
Posts
4476
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
January 6, 2016
-
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