Open userform when worksheet opens

[ipbr21054]

Morning,

My goal is when i open the workbook i should see INCOME (1) open & either show the userform or not depending on cell value in B1
What i see happening is if i was last on worksheet INCOME (3) then i save & close the workbook when i next open it the code runs BUT when i close the userform i need to the close it once again.

This doesnt happen if the last worksheet was INCOME (1)

I have the two codes in use shown below,
This in the ThisWorkBook,

Private Sub Workbook_Open()With Worksheets("INCOME (1)")
.Activate
.Range("A4").Select
End With
If Range("B1") = "" Then
Range("A4").Select
MYFINCOMEONE.Show
Else
End If
End Sub

I also have this code in the right click on the worksheet tab,

Private Sub Worksheet_Activate()
If Range("B1") = "" Then
Range("A4").Select
MYFINCOMEONE.Show
Else
End If
End Sub

 

[dmt32]

hi,
try

Private Sub Workbook_Open()


    With Worksheets("INCOME (1)")
        .Activate
        If Len(.Range("B1").Value) = 0 Then MYFINCOMEONE.Show
    End With


End Sub

Dave

 

[ipbr21054]

Hi,
I get the same issue.
I need to click on the close option twice