Copy format of row above my activecell
This adds 5 blank formatted lines to the botto. If this is similar to what
you are after? use it with my blessing.
Lou
Public Sub AddBlankLines()
' Add Blank Lines Macro
Worksheets("Recall").Select
range("A1").Select
ActiveSheet.Unprotect
Rows("2:6").Select
Selection.Copy
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Select
Selection.Resize(5, 35).ClearContents
ActiveSheet.Protect
End Sub
"al007" wrote:
How can you modify you code to make it work for a selection containing
more than 1 row (instead of the active cell)
|