existe celda seleccionada datagridview

Dim n = DgvTareas.SelectedCells.Cast(Of DataGridViewCell).Select(Function(x) x.RowIndex).Distinct.Count


DgvTareas.SelectedCells.Count > 0


fuente