Dim rng As Range
Set rng = Sheets("sheet1").Range("C2:N2")
For Each Item In rng
If Item.Value = "" Then
Item.Value = "X"
Else
If Item.Value = 0 Then
Item.Value = "X"
End If
End If
Next Item
Sub test()
Dim rng As Range
i = InputBox("What Row?")
Set rng = Sheets("sheet1").Range("C" & i & ":" & "N" & i)
For Each Item In rng
If Item.Value = "" Then
Item.Value = "X"
Else
If Item.Value = 0 Then
Item.Value = "X"
End If
End If
Next Item
End Sub
Sub test()
Dim rng As Range
'i = InputBox("What Row?")
i = ActiveCell.Row
Set rng = Sheets("sheet1").Range("C" & i & ":" & "N" & i)
For Each Item In rng
If Item.Value = "" Then
Item.Value = "X"
Else
If Item.Value = 0 Then
Item.Value = "X"
End If
End If
Next Item
End Sub