Show user form by cell value

[Stevie p]

Hi,
What im looking for is to show userform 6 when the workbook opens but only if cell worksheet 1 cell G6 value is greater than 0.

Regards Stevie p.

 

[VoG]

Try in the ThisWorkbook module

Private Sub Workbook_Open()
If Sheets(1).Range("G6").Value > 0 Then UserForm6.Show
End Sub

 

[Stevie p]

Compile error, block if without end if..... Any Ideas

 

[VoG]

Did you paste in the code exactly as I posted it? The If statement goes on a single line of code, as shown.

 

[shabbyporpoise]

Hello Stevie P

I have been reading about worksheet procedures recently, an example of my code is here. Hope this could be some help. Not sure if procedures is the route you were wanting to take.

Private Sub Worksheet_Calculate()
    If Range("f1").Value < 1000 Then
    MsgBox "profits are too low!!", vbExclamation, "warning!!"
    ElseIf Range("f1").Value >= 5000 Then
    MsgBox "profits are looking good", vbExclamation, "wow you are amazing"
    End If
    
End Sub

shabbyporpoise

 

[Stevie p]

Thanks Guys for your help. Works a treat 8^)