I have two spreadsheets. I need to copy a cell from one spreadsheet,
go to the other spreadsheet and find the number in that one and then
copy the contents of another cell back to the original spreadsheet.

Here is the code I have which works but requires some hands on copying
and pasting.

Dim strToFind As String
Selection.Copy
strToFind = InputBox("Enter the code to find")
' TRIED TO GET THE ITEM I COPIED TO PASTE BUT I MANUALLY HAVE TO
HIT CTRL + V TO PASTE
INTO INPUT BOX AND THEN CLICK OK. I WANT THIS STEP AUTOMATED.
'Selection.Paste
Windows("Full GL Mapping Oracle to SOS EDITED.xls").Activate
Columns("L:L").Select
Selection.Find(what:=strToFind, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, -3).Select
Selection.Copy
Windows("2005 beginningbalancesglpost2.fil.xls").Activate
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste

Any other suggestions would be greatly appreciated. I recorded this
macro and then started tweaking it. I am open to any and all
suggestions.

Thank you.