Runtime Error 9

[whyme6181]

Hi. I have a macro that for whatever reason refuses to switch back to the starting worksheet. It doesn't matter which you start from it won't go back to it. For example if you start at sheet 1 it will switch to all sheets except sheet 1. If you start at sheet 3 it will switch to all sheets except sheet 3. This makes no sense to me and I need this to work in order to do my job. This worked just fine for me up until today when I got a new laptop, but my coworkers had trouble running it. Now I am just like them. Here is the test code:

Sub test()
Worksheets("List").Select
Worksheets("MSI").Select
Worksheets("MMI").Select
Worksheets("Data Sets").Select
Worksheets("Arrays").Select
Worksheets("1").Select
Worksheets("LIST").Select
Worksheets("Arrays").Select
Worksheets("MSI").Select
End Sub

Please let me know if there is some fundamental I am missing or something. This just doesn't make sense to me.

Thanks

 

[VoG]

That looks like it should work but why do you need to select a sheet to start with?

 

[whyme6181]

My macro takes info from one sheet cross references with a system and then back to a table on another sheet and then inputs the result on the original sheet. However, I can't get the macro to go back to the original sheet.

 

[VoG]

You don't need to select a sheet in order to work with it

With Sheets("List")
    .Range("A1").Value = "AArgh!"
End With

 

[whyme6181]

Actually, in this instance I do, because it is a loop and all of the source info is on the first sheet, so eventually it has to get back to the first sheet to select the next batch of info. Or is there another way for me to do that?

 

[VoG]

You still shouldn't need to select. For example to copy a range from one sheet to another

Sheets("Test").Range("A1:E10").Copy Destination:=Sheets("MSI").Range("A" & Rows.Count).End(xlUp).Offset(1)