Sort a Range in a Hidden sheet

[hmk]

Hi there
1)Is ther a code to make a userform appear from top reight/left corner in a wavy way ?

2)The sheet that contain the range needs to be sorted must be activated .
I nedd to make my sort without activating the sheet that conatain the range, cuz this sheet is very hidden and I want it to contiue to be hidden.
Is there a soultion to sort my range in the hidden sheet without activating this sheet ?
Here is my try
"

Worksheets(""Sheet1"").Range(""B:B"").Sort Key1:=Range(""B1""), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

"

 

[erik.van.geit]

this would be my answer

Option Explicit

Private Sub UserForm_activate()
Dim starttime As Double
Dim Gsm As String
Dim delay As Double
Dim I As Integer
Dim J As Integer

Gsm = Application.Substitute(StrReverse("VMOCLVW VRA UOY"), "V", "E")

    With TextBox1
    .TextAlign = fmTextAlignRight
    .Text = ""
    .Height = 30
    .Left = 0
    .Width = Me.Width
    .Font.Size = 14
    .BackColor = &HFF
    End With
    delay = 0.03

Application.Wait Now + 1 / 60 / 60 / 24
    With TextBox1
        For J = 1 To 6
            For I = 1 To Len(Gsm) + 1
            .Text = .Text & Mid(" " & Gsm, I, 1)
                starttime = Timer
                DoEvents
                Do
                Loop While Timer - starttime < delay
            Next I
            .BackColor = IIf(.BackColor = &HFF, &H80000001, &HFF)
        Next J
        
    .BackColor = &HFF
    .TextAlign = fmTextAlignCenter
    .Text = Gsm
    delay = 0.3
        For J = 1 To 10
        .BackColor = IIf(.BackColor = &HFF, &H80000001, &HFF)
            starttime = Timer
            DoEvents
            Do
            Loop While Timer - starttime < delay
        Next J
        
    End With
End Sub

you can substitute Gsm = ... by something more easy like Gsm = "TEXT"
I wrote it this way for the surprise