Boa tarde, Veja se era isso: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Selection.Rows.Count > 1 Then Exit Sub If Not Intersect(Target, Range("B:G")) Is Nothing Then With Target If Cells(Target.Row, 1).Value = "" Then MsgBox "Precisa numerar a linha na c...