If a cell is not blank

Macro Title:
Worksheet Variable:
Row Reference Variable:
Worksheet Name:
Test From Row Number:
enter the first row number of a cell from which you want to begin testing
Test To Row Number:
enter the last row number of a cell which you want to test
Test Column Number:
enter the column number of the column that captures the cells that you want to test
Output Column Number:
enter the column number of the column in which you want to return the results
Value if test is True:
enter the value that you want returned if a cell is not blank
Value if test is False:
enter the value that you want returned if a cell is blank
First Comment:

'
Second Comment:

'
Sub If_cell_is_not_blank_with_vbNullString_using_For_Loop()
'declare a variable
Dim ws As Worksheet
Set ws = Worksheets("Analysis")
'calculate if a cell is not blank across a range of cells with a For Loop
For x = 5 To 11

If ws.Cells(x, 3) <> vbNullString Then

ws.Cells(x, 4) = "Yes"

Else

ws.Cells(x, 4) = "No"
End If

Next x

End Sub

Sub If_cell_is_not_blank_with_vbNullString_using_For_Loop()
'declare a variable

Dim ws As Worksheet

Set ws = Worksheets("Analysis")
'calculate if a cell is not blank across a range of cells with a For Loop

For x = 5 To 11

If ws.Cells(x, 3) <> vbNullString Then

ws.Cells(x, 4) = "Yes"

Else

ws.Cells(x, 4) = "No"
End If

Next x

End Sub

Sub If_cell_is_not_blank_with_vbNullString_using_For_Loop()
'declare a variable
Dim ws As Worksheet
Set ws = Worksheets("Analysis")
'calculate if a cell is not blank across a range of cells with a For Loop
For x = 5 To 11

If ws.Cells(x, 3) <> vbNullString Then

ws.Cells(x, 4) = "Yes"

Else

ws.Cells(x, 4) = "No"
End If

Next x

End Sub