I have this and it works to make sure everything is a number. But i still want to do data validation to make sure it gives you and error if you try to leave blanks. And if it is not too much trouble how do I tweak my working code to make sure only positive numbers.

```
Private Sub Worksheet_Change(ByVal Target As Range)
Const CELL_ADDRESS = "$C$5:$C$7,$C$9:$C$11,$C$12:$C$13,$C$15:$C$16,$C$18:$C$25"
If Not Application.Intersect(Target, Range(CELL_ADDRESS)) Is Nothing Then
   If Not IsNumeric(Target.Value) Then
      MsgBox "Please Enter Numerical Values Only", vbCritical, "Error"
      Target.Value = vbNullString
   End If
End If
End Sub

This is the blank code I have but It does not work.

'Validation for No Blank Cells
Private Sub Worksheet_Change1(ByVal Target As Range)
Const CELL_ADDRESS = "$C$5:$C$7,$C$9:$C$11,$C$12:$C$13,$C$15:$C$16,$C$18:$C$25"
If CELL_ADDRESS = "" Then
MsgBox "Please Enter Numerical Values", vbCritical, "Blank Cell(s)!"
'  End If
'    If Not Application.Intersect(Target, Range(CELL_ADDRESS)) Is Nothing Then
'       If IsEmpty(Range(CELL_ADDRESS)) Then
'         MsgBox "Please Enter Numerical Values for Cells C5:C7", vbCritical, "Blank Cell"
'     End If
'    End If End Sub

```