I've the following code in a User Form:

------

Private Sub OptionButton1_Click()
sScreen = "Purchase"
End Sub

Private Sub OptionButton2_Click()
sScreen = "Remortgage"
End Sub

Private Sub CommandButton2_Click()
'' They've clicked proceed, which screen do we open next?
If (sScreen = "Remortgage") Then
Sheets("Sheet2").Activate
Else
Sheets("Sheet3").Activate
End If
Unload UserForm1
End Sub

----

It always displays "Sheet3" after the "proceed" button is pressed,
regardless of which radio button the user selects, I assume the
variable sScreen isn't being carried over into the final Private Sub,
what do I need to do to ensure it is?

Or is there another problem here?

Excel 97.
Thanks for any help!

David,

Declare the variable

Public sscreen As String

Select General|Declarations
and paste it in there.

Mike

"David" wrote:

> I've the following code in a User Form:
>
> ------
>
> Private Sub OptionButton1_Click()
> sScreen = "Purchase"
> End Sub
>
> Private Sub OptionButton2_Click()
> sScreen = "Remortgage"
> End Sub
>
> Private Sub CommandButton2_Click()
> '' They've clicked proceed, which screen do we open next?
> If (sScreen = "Remortgage") Then
> Sheets("Sheet2").Activate
> Else
> Sheets("Sheet3").Activate
> End If
> Unload UserForm1
> End Sub
>
> ----
>
> It always displays "Sheet3" after the "proceed" button is pressed,
> regardless of which radio button the user selects, I assume the
> variable sScreen isn't being carried over into the final Private Sub,
> what do I need to do to ensure it is?
>
> Or is there another problem here?
>
> Excel 97.
> Thanks for any help!
>
>

You are sharing variables across the userform, so you to declare the
variable as a Public Variable. At the top of your userform subs,
place:
Public sScreen As String

That should fix ya up.

David wrote:
> I've the following code in a User Form:
>
> ------
>
> Private Sub OptionButton1_Click()
> sScreen = "Purchase"
> End Sub
>
> Private Sub OptionButton2_Click()
> sScreen = "Remortgage"
> End Sub
>
> Private Sub CommandButton2_Click()
> '' They've clicked proceed, which screen do we open next?
> If (sScreen = "Remortgage") Then
> Sheets("Sheet2").Activate
> Else
> Sheets("Sheet3").Activate
> End If
> Unload UserForm1
> End Sub
>
> ----
>
> It always displays "Sheet3" after the "proceed" button is pressed,
> regardless of which radio button the user selects, I assume the
> variable sScreen isn't being carried over into the final Private Sub,
> what do I need to do to ensure it is?
>
> Or is there another problem here?
>
> Excel 97.
> Thanks for any help!

Thanks both, now working!