Range Select not working?!

[dowingc]

I have a very simple spreadsheet that is copying cell values from one workbook to another. At the start of the code I am trying to setup the initial activecell locations by using this code. however, it keeps erroring out but I don't know why. Help greatly appreciated! I am running this on Office XP, but it may run on O2K in the future....

Option Explicit
Public Sub macro1_Click()
Dim delay As Integer
Dim symbol, t As String
ChDir "c:\stock"
Sheets(1).Select
Range("A2").Select
Sheets(2).Select
Range("A2").Select <---------here is where i get the error "Selection method of Range class failed"
....


Thanks!

Chris

 

[Seti]

Is A2 on sheet2 protected? Are there any objects on sheet2 that are active when you switch to it, i.e., if you look at sheet2, is there a chart that is active?

 

[Cbrine]

Try this. I think your references might be the issue. This code should fix up any problems.

Option Explicit
Public Sub macro1_Click()
Dim WS1 as worksheet, WS2 as worksheet
Dim delay As Integer
Dim symbol, t As String
ChDir "c:\stock"

Sheets(1).activate
set WS1 =Activesheet
WS1.Range("A2").Select

Sheets(2).Activate
Set ws2= Activesheet
WS2.Range("A2").Select

 

[dowingc]

Not that I am aware of. I just put some labels (just text) on the top at A1:L1, thus having A2 be the first blank cell. I looked for protection and can't see any. It is obviously something with sheet2 though, I removed the line of code causing problems and another .select on sheet2 errored....frustrating...

Just read the post with code and testing it, seems to be working, thanks!!!

Chris