Hi,
Have the following code:
I get the error: "the object invoked has disconnected from its clients" on UserForm1.show.
The UserForm contains a listbox and close button.
I added the Worksheets and Range .Activate after googling this error, but it didn't help!
Very much appreciate any help in resolving this issue.
Thanks
Have the following code:
Code:
Option Explicit
Private Sub Workbook_Open()
ThisWorkbook.Worksheets("Sheet1").Activate
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lRow As Long
Dim cols As Range
Dim UForm As Object
Dim PrepAdminOPen As Boolean
lRow = Cells(Rows.Count, 2).End(xlUp).Row
If Not Application.Intersect(Target, Range("F3:F" & lRow)) Is Nothing Then
Range("F3:F" & lRow).Activate
Cancel = True
UserForm1.Show
Exit Sub
End If
The UserForm contains a listbox and close button.
I added the Worksheets and Range .Activate after googling this error, but it didn't help!
Very much appreciate any help in resolving this issue.
Thanks