Gennemsøgning af flere worksheet fra en userform

Jeg har brug for at kunne gennemsøge flere worksheets via en userform. Når jeg afprøve det med nedenstående rutine, får jeg en besked om at variablen ws ikke er defineret.

Sub test()
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> ActiveSheet.Name Then
        MsgBox ws.Name
   
    End If
Next
End Sub

Placeres den i et modul - altså ikke i en userform virker den fint. Hvad er forskellen?