I have the following code to copy cells from one worksheet to another. I am
using this as I want the data to copy automatically when I hit either enter,
tab, or mouse click:

Private Sub Worksheet_Change(ByVal Target As Range)
'
Copies Pay Period from sheet 1 to cover
'
If Not Intersect(Target, Me.Range("R9")) Is Nothing Then
Me.Range("R9").copy Destination:=Sheets("Cover").Range("H6")
End If
End Sub

Problem 1 is the fonts on one worksheet are larger (16) so I can view the
data as I reduced the view percentage so I could get all of the sheet in the
window. I need to copy just the values/data from the cell and not the format.
I created a macro to see the code and I have the following but do not know
where to put it in the above code:

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

When I insert this code into the above code to copy only the data I get a
syntx error.
Could you tell me where I should place this code in the above code or if I
need something different what that code would be and where would I put it.

Problem 2 is I have several different cells that I need to copy on all work
sheets if I enter the above Private Sub code I get an error that there is a
conflict with the other routines that use the same Private Sub
Worksheet_Change(ByVal Target As Range) at least that is the part that is
highlighted in yellow.

How can I have this code to copy other cells from one worksheet to another
with other routines using the same code but different cell ranges.
--
BillD