Hello all,
Tried these two codes, both give me trouble (*****)
at different intervals.
The first one works in another workbook ( this one I'm working on is a copy
of it, but edited somewhat, the sheet names are still the same, just the
layout is slightly different)
Any help would bw appreciated.
P.S. posted this question about 4 hours ago, but can't find my post, so
sorry if it show's up twice...

Sub JKsend3()
Dim myFind As Integer
Dim rng As Range
*****myFind = Worksheets("INPUT").Range("$E$36").Value
Set rng = Worksheets("INPUT").Range( _
"C493:C979").Find(myFind, _
LookIn:=xlValues, LookAt:=xlWhole)


If Not rng Is Nothing Then

Worksheets("INPUT").Range("D488:BA488").Copy
***** rng.Offset(0, 1).PasteSpecial xlValues

Else
MsgBox myFind & " was not found"
End If
Sheets("PNT032").Select
Range("J46").Select
End Sub

Sub send9()
Dim myFind As Integer
Dim rngToSearch As Range
Dim rngFound As Range
Set wks = ActiveSheet
Set rngToSearch = Worksheets("INPUT").Range("C493:C979")
Set rngFound = rngToSearch.Find(What:=wks.Range("$E$36"), _
LookAt:=xlPart, MatchCase:=False)

If Not rngFound Is Nothing Then
Worksheets("INPUT").Range("D488:BA488").Copy
rng.Offset(0, 1).PasteSpecial xlValues

Else
MsgBox myFind & " was not found"
End If
Sheets("PNT032").Select
Range("J46").Select
End Sub