doctortt
05-06-2011, 01:28 PM
Hi gurus,
can someone help me to take a look at these codes and see if there is a way to shorten them? I'm a newbie =(
OpenFile = Application.GetOpenFilename(FileFilter:="Excel files(*.xls), *.xls")
Workbooks.Open(OpenFile).Sheets("info").Cells.Copy
ActiveWindow.Close
Workbooks("abc.xls").Worksheets("test").Activate
Worksheets("test").Cells.Select
Worksheets("test").Paste
can someone help me to take a look at these codes and see if there is a way to shorten them? I'm a newbie =(
OpenFile = Application.GetOpenFilename(FileFilter:="Excel files(*.xls), *.xls")
Workbooks.Open(OpenFile).Sheets("info").Cells.Copy
ActiveWindow.Close
Workbooks("abc.xls").Worksheets("test").Activate
Worksheets("test").Cells.Select
Worksheets("test").Paste