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