Solved: Select Row problem

I tried this code to show message only if I select any row in a sheets else exit sub but didn't work
[VBA]Dim wsh As Worksheet
If Not wsh.Rows.Select Then Exit Sub
MsgBox ("ok")[/VBA]

Put this in the ThisWorkbook module

[vba]Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Rws
Rws = Target.Cells.Count / Sh.Columns.Count
If Rws - Int(Rws) = 0 Then MsgBox Rws & " rows selected"
End Sub
[/vba]

thank you for help!!

thank you for help!