another question (Everything below has work).

Using RName (as inputed ROW number) how would I check the
contents of column 2 in that row? If the cell is blank
Then or If the cell has a "Y" Then end.

I used this If statement:

If ActiveSheet.Cells("RName,2")<"" Then
I abort
if the cell is blank then I wany to insert "Y" into cell
("RName,2")


but this is not working. Any suggestions? Thanks.

-----Original Message-----
Thanks Tom, have a good evening. Dan
-----Original Message-----

Dim RName As Integer

On Error GoTo addError (links at bottom of my code & is
ok)

RName = InputBox ("Enter...")
If RName = 6 Then

for i = 10 to 30 step 2
ActiveSheet.Cells(rName,i).ClearContents
Next
end if

--
Regards,
Tom Ogilvy

"Dan" wrote in
message
...
My coding takes a row number from the InputBox and
calls
it RName. Using this RName (row) I want to select 11
cells
on that row to ClearContents. I keep getting a
seperator
error and possibly more once I correct that issue. My
coding is as follows:

Dim RName As Integer

On Error GoTo addError (links at bottom of my code &
is
ok)

RName = InputBox ("Enter...")
If RName = 6 Then

ActiveSheet.Cells("RName,10:RName,12:RName,14:.... .. _

RName,30").ClearContents

thanks, Dan




.

.