It can't be done in one line, but it can be cleaned up a little...

With Range("a" & numberrows + 1)
.Formula = "=date(YEAR(begrevdate)+1,month(begrevdate),day(be grevdate))"
.NumberFormat = "m/d/yyyy"
end with

Note this no longer selects the cell so if you require the active cell to
move then you will need to add a

..select

in the with clause

HTH


"Papa Jonah" wrote:

I currently have multiple situations where code resembles the following:

Range("a" & numberrows + 1).Select
Range("a" & numberrows + 1).Formula =
"=date(YEAR(begrevdate)+1,month(begrevdate),day(be grevdate))"
Selection.NumberFormat = "m/d/yyyy"

In order to reduce the size and complexity, I would like to be able to
condense some of the coding to resemble something like:

Range("a" & numberrows + 1).Formula =
"=date(YEAR(begrevdate)+1,month(begrevdate),day(be grevdate))"; NumberFormat =
"m/d/yyyy"

I thought this was possible but my attempts to play with syntax have been
unsuccessful in getting it to work.

Any help would be much appreciated.
TIA