Error 800a01a8

Solved/Closed
Sofy - Jun 21, 2010 at 08:46 AM
 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

2 responses

rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 766
Jun 21, 2010 at 03:00 PM
Try instead of hiding the form, unloading it
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 47310 Registration date Monday February 1, 2010 Status Moderator Last seen February 15, 2023 11,166
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 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 766
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