If a range contains a value greater than

Macro Title:
Worksheet Variable:
Worksheet Name:
Cell Reference of Specific Value:
enter the cell reference that captures the value that you want to test if a range contains a value greater than this value
Test Range Reference:
enter the range that you want to test
Output Cell:
Value if test is True:
enter the value that you want returned if a range contains a value greater than a specified value
Value if test is False:
enter the value that you want returned if a range does not contains a value greater than a specified value
First Comment:

'
Second Comment:

'
Sub If_a_range_contains_a_value_greater_than()
'declare a variable
Dim ws As Worksheet
Set ws = Worksheets("Analysis")
'calculate if a range contains a value greater than the value in cell (C5) and then return a specified value
If Application.WorksheetFunction.CountIf(ws.Range("C8:C14"), ">" & ws.Range("C5")) > 0 Then

ws.Range("E8").Value = "Yes"

Else

ws.Range("E8").Value = "No"

End If

End Sub

Sub If_a_range_contains_a_value_greater_than()
'declare a variable

Dim ws As Worksheet

Set ws = Worksheets("Analysis")
'calculate if a range contains a value greater than the value in cell (C5) and then return a specified value

If Application.WorksheetFunction.CountIf(ws.Range("C8:C14"), ">" & ws.Range("C5")) > 0 Then

ws.Range("E8").Value = "Yes"

Else

ws.Range("E8").Value = "No"

End If

End Sub

Sub If_a_range_contains_a_value_greater_than()
'declare a variable
Dim ws As Worksheet
Set ws = Worksheets("Analysis")
'calculate if a range contains a value greater than the value in cell (C5) and then return a specified value
If Application.WorksheetFunction.CountIf(ws.Range("C8:C14"), ">" & ws.Range("C5")) > 0 Then

ws.Range("E8").Value = "Yes"

Else

ws.Range("E8").Value = "No"

End If

End Sub