fill format only

[gregork]

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

 

[JE McGimpsey]

One way:

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

 

[gregork]

Thats done the trick JE.

Many thanks
GK

One way:

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