What I am trying to do is: if there is a name(text) in the cell, then change
it to an X, otherwise if the cell is blank, leave it blank. The data is in
the following range, E2:G3959

Thanks,
mrsjcd3

Sub change_um()
For Each cell In Range("E2:G3959")
If cell.Value = "" Then
Else
cell.Value = "X"
End If
Next
End Sub

--
Gary''s Student - gsnu200803


"mrsjcd3" wrote:

What I am trying to do is: if there is a name(text) in the cell, then change
it to an X, otherwise if the cell is blank, leave it blank. The data is in
the following range, E2:G3959

Thanks,
mrsjcd3

Thank you so much for the speedy help!!!

"Gary''s Student" wrote:

Sub change_um()
For Each cell In Range("E2:G3959")
If cell.Value = "" Then
Else
cell.Value = "X"
End If
Next
End Sub

--
Gary''s Student - gsnu200803


"mrsjcd3" wrote:

What I am trying to do is: if there is a name(text) in the cell, then change
it to an X, otherwise if the cell is blank, leave it blank. The data is in
the following range, E2:G3959

Thanks,
mrsjcd3