Quote Originally Posted by stoly
Example:
I have Workbooks "house1" and when I enter data in cell "A1" to "A7", I get the sum in cell "A10" in "sheet1", now I have to copy cell "A10" and more 4 cells, lets say "B12" "B15" "C23" "D9" into Workbooks "house2" in "N1" "N4" "N7" "M4" cell in "sheet1". I need to find that workbook "house2", because there is so many folders under folders (100 or more) and after paste data in "house2", need to left open the file "house2".
Problem solved, i find solution, thx everyone for help.
I use help of hyperlink!

This is code for this, only transfer one cell, maybe this thing help someone!

Sub transfer()
Range("A2").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Windows("house1.xls").Activate
    Range("A4").Select
    Selection.Copy
    Windows("house2.xls").Activate
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    ActiveWorkbook.Save
    ActiveWorkbook.Close
End Sub