You are currently copying the format of the row above the activecell
over itself. Try:

Sub Macro4()
Dim rng As Range
Set rng = ActiveCell
Rows(rng.Row - 1).Copy
Cells(rng.Row, 1).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
rng.Select
End Sub

Hope this helps
Rowan


al007 wrote:
> 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
>