Tom Ogilvy kindly provided the following code that I use to copy a formula
and format when adding items to a list:

LastRow.Offset(1,3).Resize(1,2).Filldown

I was just wondering what I could use if I only wanted to fill the format of
the cell above and not the formula or data.

GK

One way:

With lastRow.Offset(0, 3).Resize(1, 2)
.AutoFill Destination:=.Resize(2, 2), Type:=xlFillFormats
End With




In article , "gregork"
wrote:

Tom Ogilvy kindly provided the following code that I use to copy a formula
and format when adding items to a list:

LastRow.Offset(1,3).Resize(1,2).Filldown

I was just wondering what I could use if I only wanted to fill the format of
the cell above and not the formula or data.

GK

Thats done the trick JE.

Many thanks
GK


"JE McGimpsey" wrote in message
...
One way:

With lastRow.Offset(0, 3).Resize(1, 2)
.AutoFill Destination:=.Resize(2, 2), Type:=xlFillFormats
End With




In article , "gregork"
wrote:

Tom Ogilvy kindly provided the following code that I use to copy a
formula
and format when adding items to a list:

LastRow.Offset(1,3).Resize(1,2).Filldown

I was just wondering what I could use if I only wanted to fill the
format of
the cell above and not the formula or data.

GK