repost, need help, thanks.....

hello, I had recently received a macro that I was needing some help with.
it seems to work on columns where there are formula's only. when i try to
modify it to work with FORMATS, it "does" work on columns with formula's, but
would not paste FORMATS down on columns, "without" formula's.

Is there a way to modify it so that it will?
not sure what the problem is.. thanks in advance

macro works on columns where cells are filled with a formula only.
what using to try to paste Formats down a column (that does not have
formula's):

1 i will manually copy cell at top, and manually place cursor to top row of
any column i choose (dynamic)
2 with macro paste format down column, to end row, skip rows where column A
has a period "."
3 not yet addressed: way to paste all cells at once without pasting 1 cell
at a time.. can work on later.



Sub PastecellF() 'alt-F (paste cell Format to col)
r = ActiveCell.Row
c = ActiveCell.Column
LastRow = Range("C4").Value
'C4 has: =ROW($A$2058) 'last row

For Each c In Range(Cells(r, c), Cells(LastRow, c))
If Cells(c.Row, "A").Value < "." Then
c.Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If
Next c
End Sub

If desired, send your file to my address below. I will only look if:
1. You send a copy of this message on an inserted sheet
2. You give me the newsgroup and the subject line
3. You send a clear explanation of what you want
4. You send before/after examples and expected results.


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Dan" wrote in message
...
repost, need help, thanks.....

hello, I had recently received a macro that I was needing some help with.
it seems to work on columns where there are formula's only. when i try to
modify it to work with FORMATS, it "does" work on columns with formula's,
but
would not paste FORMATS down on columns, "without" formula's.

Is there a way to modify it so that it will?
not sure what the problem is.. thanks in advance

macro works on columns where cells are filled with a formula only.
what using to try to paste Formats down a column (that does not have
formula's):

1 i will manually copy cell at top, and manually place cursor to top row
of
any column i choose (dynamic)
2 with macro paste format down column, to end row, skip rows where column
A
has a period "."
3 not yet addressed: way to paste all cells at once without pasting 1
cell
at a time.. can work on later.



Sub PastecellF() 'alt-F (paste cell Format to col)
r = ActiveCell.Row
c = ActiveCell.Column
LastRow = Range("C4").Value
'C4 has: =ROW($A$2058) 'last row

For Each c In Range(Cells(r, c), Cells(LastRow, c))
If Cells(c.Row, "A").Value < "." Then
c.Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If
Next c
End Sub