Hi,

When running the code below I keep getting the Runtime Error Code '1004': Application Defined or Object Defined Error and as I am no VBA expert I'm stumped....Help would be very much appreciated!

I have commented the line at which the error occurs and the multiple Msg Box's are what I have used for debugging to ensure variables are returning the correct values (which they are).

Sub CopyTest()
Dim Found_Address As String
Dim Found_Row As Integer
Dim Cell_Return As Integer
Dim Compare_Val As Range

Set Compare_Val = Worksheets("Mappings").Range("A2")
Found_Address = Compare_Val.Address
MsgBox Found_Address
Found_Row = Right(Found_Address, Len(Found_Address) - 3)
MsgBox Found_Row
Cell_Return = Worksheets("Mappings").Range("E" & Found_Row)
MsgBox Cell_Return
Worksheets("Mappings").Range(Cell_Return).Copy
    'Error on line above
Worksheets("Main").Range("P2").PasteSpecial xlValues
Application.CutCopyMode = 0
End Sub
Thank you!