Range("O" & SCell + 5 & ":Q" & SCell + 12).Select

--

HTH

RP
(remove nothere from the email address if mailing direct)


"JCanyoneer" wrote in message
...
I an writing a subroutine that passes a cell value and uses it to select
certain cells for manipulation. I would like to Select a range of cells to
set the properties on but cant get the syntax correct.

The code looks like this:
Sub SingleDoor(SCell as Integer)
Range("O" & SCell+5 ":Q" Scell+12).select
My problem is with the quotes. Any see the problem?