The problem is the placement of the 2 macros. The first one belongs in a
regular module. If it was working before, then you have it in the right
place. Leave it there.
The second macro is what is called a "sheet macro" or a "sheet event
macro". It has to go into a different type of module, called a "sheet
module". Every sheet has a sheet module of its own. This type of macro
fires automatically upon the occurrence of some event in that sheet. In
this case, the event is the selection of any cell in the entire sheet. Is
that what you wanted with this macro? You don't have any code in that macro
to narrow down the range in which a selection will result in some action
being taken. Right now you will get the action with any cell being
selected. Any cell in the entire sheet! The action is adding borders and
colors. Exactly what did you want this second macro to do? HTH Otto
PS: To access the sheet module of a sheet, right-click on the sheet tab,
select View Code. There is the sheet module for that sheet.
"Redskinsfan" wrote in message
...
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