error running a paste macro
 

I had the following macro workin fine prior to adding a macro to the sheet.
here's the macro im having problems with i get the error message on
ActiveSheet.paste..

below this macro i will add the new macro added to sheet which started
causing for the macro above to stop working.

Sub New_Trade()
'
' New_Trade Macro
' Macro recorded 8/2/2006 by Parsons User
'
ActiveSheet.Protect UserInterfaceOnly:=True
ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(-2, 0).Rows("1:1").EntireRow.Select
Selection.Copy
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1:D1").Select
Application.CutCopyMode = False
End Sub

Below this is the macro i added to the whole sheet which now is causing my
other macros to give me the error on the paste line to stop..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Protect UserInterfaceOnly:=True
Cells.FormatConditions.Delete
With Target
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
With .FormatConditions(1)
With .Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
With .Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
End With
.FormatConditions(1).Interior.ColorIndex = 19
End With

End Sub

Im a newbie with macros and most of these i have taken from samples so
please when explaining would apreciate if done in simple terms.. Thanks in
advance

error running a paste macro
 

Can anyone help me out?? please :(

"Redskinsfan" wrote:

I had the following macro workin fine prior to adding a macro to the sheet.
here's the macro im having problems with i get the error message on
ActiveSheet.paste..

below this macro i will add the new macro added to sheet which started
causing for the macro above to stop working.

Sub New_Trade()
'
' New_Trade Macro
' Macro recorded 8/2/2006 by Parsons User
'
ActiveSheet.Protect UserInterfaceOnly:=True
ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(-2, 0).Rows("1:1").EntireRow.Select
Selection.Copy
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1:D1").Select
Application.CutCopyMode = False
End Sub

Below this is the macro i added to the whole sheet which now is causing my
other macros to give me the error on the paste line to stop..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Protect UserInterfaceOnly:=True
Cells.FormatConditions.Delete
With Target
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
With .FormatConditions(1)
With .Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
With .Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
End With
.FormatConditions(1).Interior.ColorIndex = 19
End With

End Sub

Im a newbie with macros and most of these i have taken from samples so
please when explaining would apreciate if done in simple terms.. Thanks in
advance