Range Value in If Statement

[gheyman]

I am tyring to determine if the user input the required data into a range before I proceed with some Code.

as a Test I tried

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Range("H6:L16").Value > 0.001 Then
Range("a1").Value = 1
Else
End If


End Sub

But it didnt like the range being more than one cell. If I changed it to ("H6") it works, so it must be the range that bugs out.

Is there a way to look at an entire range to verify data (numbers) where entered?

 

[MrKowz]

Try:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rng As Range
Application.ScreenUpdating = False
For Each rng In Range("H6:L16")
    If rng.Value > 0.001 Then
        Range("A1").Value = 1
        Exit Sub
    End If
Next rng
Application.ScreenUpdating = True
End Sub