Sub try()
Cells(1).Value = ActiveWorkbook.Name
End Sub
sub try()
[COLOR=blue]Windows("trybook 2 .xls").Activate[/COLOR]
Cells(1).select
End Sub
Sub try2()
Dim wb As Workbook, myfile As String
'i also tried "Workbooks("For Pedie(1).xls").Activate" this way but still same error message...
Windows("For Pedie(1).xls").Activate
Range("A1").Copy
'Try.xlsm is in my desktop
Windows("Try.xlsm").Activate
Cells(1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub