I would like to copy format of row above my activecell with macro
below:

Sub Macro4()
'
' Macro4 Macro
' Macro recorded 09-12-2005 by Albert Ng
'

ActiveCell.Offset(RowOffset:=-1, columnOffset:=0).EntireRow.Select
Selection.Copy
ActiveCell.EntireRow.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub

But it's not working - can anybody help please.

Thxs