VBA: runtime error 1004 : Method range of object - 'Global' failed

kata___ 

Does this work?

Private Sub cmdb_razeni_Click()
    Dim w As Worksheet
    Dim smer1 As Byte, smer2 As Byte
    If cmbx_klic1 = cmbx_klic2 Then
        MsgBox "Oba zadané klí?e jsou shodné. Zvolte odlišné."
        Exit Sub
    End If
    If optb_vzest_1 Then
        smer1 = xlAscending
    Else
        smer1 = xlDescending
    End If
    If optb_vzest_2 Then
        smer2 = xlAscending
    Else
        smer2 = xlDescending
    End If
    Set w = Worksheets("data")
    With w.Range("data")
        If check_razeni = False Then
            .Sort Key1:=w.Range(cmbx_klic1), Order1:=smer1, Header:=xlYes
        Else
            .Sort Key1:=w.Range(cmbx_klic1), Order1:=smer1, _
                Key2:=w.Range(cmbx_klic2), Order2:=smer2, Header:=xlYes
        End If
    End With
    frm_menu.Hide
End Sub