Workbook crashes

[Av8tordude]

After adding a label to a userform, my workbook crashes. After stepping through the code, I realize anything with lbChart.Visible... is the cause of the crash. I decided to copy and paste existing label already on the userform and the workbook continues to crash. When I delete the label and add a new label, no crash occurs, however, after saving and closed and restarting, the crash occurs. I decided to commented out coding with lbChart.Visible... but keep the label on the userform and NO crash occurs. Can anyone offer a diagnoses to this problem.

Thanks

 

[Saurabhj]

Hi,

Please share the macro to check the issue.

Thanks,
Saurabh

 

[Av8tordude]

Private Sub lbChart_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
lbinternet.Visible = True
lbChart.Visible = False
ThisWorkbook.Unprotect Password:="Av8tordude!"
Me.Repaint
GetData2
lbinternet.Visible = False
ThisWorkbook.Protect Password:="Av8tordude!"
End Sub

 

[Saurabhj]

Hi,

Didn't find any issue in the code. I tried at my end and its working fine.

What GetData2 function have ?

Thanks,
Saurabh

 

[Av8tordude]

The GetData2 doesn't cause the crash. As mentioned before, I commented out lbChart.visible and the crash occurs. However, If I don't comment out lbChart.visible then the crash occurs.

 

[Saurabhj]

As the code is not creating any issue in my excel. It would be great if you share your sheet to check.

 

[Av8tordude]

Label is on a userform. The black arrow is pointing to the new label. it sits on top of Image object. the "Retrieving Data..." label also sits on top the image object, however, this label does not cause the workbook to crash. I did try copy/paste this label but it still causes the workbook to crash

 

[Saurabhj]

Hi, I created the similar userform, added labels with same name, added the code but its working fine.

No crashing of workbook.

Sorry, unable to reproduce the issue.

 

[Av8tordude]

Hmmm...strange. I decided to remove the lbChart and rewrite the code using the "Retrieving data..." label. Two birds with one stone. Removed an object and less code, but efficient coding.

 

[Saurabhj]

Cool! thanks for sharing solution.