Sheet activation working fine for me, but not for others?

**Norie** · 07-25-2013, 02:58 PM

Could the problem be that some people have Windows set to display file extensions and other's don't?

By the way, the code could be tidied up a bit.

ThisWorkbook.Sheets("Temp").Cells.ClearContents
 
Set wbSrc = Workbooks.Open (Filename:="sourceofcopy.xlsx")
 
wbSrc.ActiveSheet.Cells.Copy ThisWorkbook.ActiveSheet.Range("A1")

Application.CutCopyMode = False

wbSrc.Close

Actually that might help with the original problem because it doesn't involve referring to workbooks with their names.

**seed** · 07-25-2013, 04:20 PM

Originally Posted by Norie

Could the problem be that some people have Windows set to display file extensions and other's don't?

ThisWorkbook.Sheets("Temp").Cells.ClearContents
 
Set wbSrc = Workbooks.Open (Filename:="sourceofcopy.xlsx")
 
wbSrc.ActiveSheet.Cells.Copy ThisWorkbook.ActiveSheet.Range("A1")

Application.CutCopyMode = False

wbSrc.Close

This appears to work wonderfully. Many thanks to you both. Don't know what I'd do if there weren't generous folks such as yourselves around to hold my hand and lead me through getting this stuff to work.