Solved: Select Row problem

[Nader]

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

[mdmackillop]

Put this in the ThisWorkbook module

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

[Nader]

thank you for help!!

[Nader]

thank you for help!