Copy Paste Macro

Please assist, i have a macro that works perfectly fine with one workbook (ADH Feb'13 new WorkfileDownload.xlsm) but refuses to ran with the other ones (ILA Feb'13 WorkfileDownload.xlsm, CBH Feb '13 WorkfileDownload.xlsm, etc).

The problem i figured out is that may be i Dim only one file name, so how do i strFileFrom to include every open/active workbook.



Sub Macro1()
Dim strFileFrom As String
Dim strFileTo As String

strFileFrom = "ADH Feb'13 new WorkfileDownload.xlsm"
strFileTo = "Template.xlsx"

Windows(strFileFrom).Activate
Sheets("Top 20 Line Entries").Select
Range("B3:B22").Select
Application.CutCopyMode = False
Selection.Copy
Windows(strFileTo).Activate
Sheets("Top 20 Line Entries").Select
Range("B14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Ponjo,
Please use code tags with your code.
You can use active workbook, so that as long as you are on that book, it should work.
If you are opening a workbook which is not open, you need to change the syntax and use open file

HI AB33 i did change to active workbook but now am getting some of my code below highlighted in yellow (example: Sheets("Top 20 FM").Select)

Please Login or Register  to view this content.

This is a recorded macro. I have amended the first few lines of the code and hopefully you should be able to do the rest

Please Login or Register  to view this content.

thanx but i figured the problem its working fine with any open workbook

thanx again God Bless you

Ponjo,
You are welcome!

Could you please now close (Mark) this thread as solved? Go in to the top right-hand side of this page, choose "Thread Tools" from the menu, then select "solved" from the drop down menu.