Showing a userform based on a condition.

P

Pete

I have a workbook that I want to show different Userforms
based on condition within the spreadsheet. When I only
have the Private Sub set up everything works well, But
when the 2nd one is added I get an error for anbigous name.

Can anyone tell me how to correct this?


Private Sub Worksheet_Change(ByVal Target As Range)
If Range("P1BetDown") < Range("CBetDown") Then
UserForm7.Show
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("P1BetFlop") < Range("CBetFlop") Then
UserForm8.Show
End If
End Sub

Thanks
Pete
 
C

Chip Pearson

Pete,

Combine the two procedures in to a single Change event procedure.
E.g,

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("P1BetDown") < Range("CBetDown") Then
UserForm7.Show
End If
If Range("P1BetFlop") < Range("CBetFlop") Then
UserForm8.Show
End If
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
 
P

Pete

Chip

Is there a limit to how many of conditions you can stack
in there? I have a need for about 10-15 conditions.

Thanks for your insight
Pete
 
Top