Transfering Worksheet varaible from Userform to Module?

I posted my problem as an excample.

I want to set a worksheet variable in a userform and want to be able to use it in a module.


Userform

Public WS As Worksheet


Private Sub TestButton_Click()
    Application.Run "Test1"
End Sub

Private Sub UserForm_initialize()
    Set WS = Blad7
End Sub

Macro Test1

 Sub Test1()
    WS.Cells(1, 1) = "TEST"
End Sub

When you set a variable in a module you can use it for an userform but not visa versa.

Any one know how to fix this without setting the the WS again in de module?

You could use:

Sub Test1()
    Userform1.WS.Cells(1, 1) = "TEST"
End Sub

but it would be better to pass the worksheet directly to the sub:

Private WS As Worksheet

Private Sub TestButton_Click()
    Test1 WS
End Sub

Private Sub UserForm_initialize()
    Set WS = Blad7
End Sub

and:

Sub Test1(wks as worksheet)
    wks.Cells(1, 1) = "TEST"
End Sub

Originally Posted by vin1

 Test1 WS

This is for a subroutine within the same userform

No it's not. Try it...