set rng = Range("B2").End(xltoRight).offset(0,-1)
if rng.HasFormula then
set rng = rng.offset(0,1)
End if

General approach - adjust to your specific situation.

--
Regards,
Tom Ogilvy


"AG" wrote in message
...
I have a monthly spreadsheet setup such that columns A & B are text,
column C is January, column D is February, column E is March, BUT column F
are quarterly totals formulas and so on ending at column S which are year to
date totals formulas. Entries begin in row 2.

On occasion I need to overwrite the monthly entries.


If I want to overwrite the 2nd or 3rd month of a quarter, no problem, I
would use the End Method.

I'd select cell A2 and use the End Method
Range ("B2") .End(xlTo Right) .Select
And select the previous column.

I run into a problem when I want to overwrite the 1st month of a quarter's
entries as the End Method less 1 column to the left puts me in a quarterly
totals column.

How do I prevent overwriting any of the quarterly columns?

Thanks I advance.

Al