Hello excelnut1954,
Here is simple macro to fill in the empty spaces. Copy and Paste this
code into a VBA project module.
Code:
--------------------
Public Sub XFill()
Dim C As Long
For C = 3 to 6
If Cells(7, C).Value < "" Then
Cells(7, C).Value = "X"
End If
Next C
End Sub
--------------------
Sincerely,
Leith Ross
--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile:
http://www.excelforum.com/member.php...o&userid=18465
View this thread:
http://www.excelforum.com/showthread...hreadid=483342