Strange error if another Excel book is opened

P

Paul

A bullet-proof application has been running for 5 years. I made a few small
changes and tested them. Everything worked perfect.

Now the weird part. The code works fine if the workbook is the <only>
workbook open. If I open a second, unrelated workbook, EVEN A BLANK BOOK ONE
WITH NO MACROS, I get a "Subscript out of range" error. Why why why???

I should note that the code contains no Declare or Dim statements because
all my variables are used only within the module.

Any help is appreciated.

Paul

Here is the code:

Sub Findstore()

ActiveWindow.WindowState = xlMinimized

SHTNAME = ActiveSheet.Name

AAAA = Activecell.Value 'example of typical value: "555 New York"

'Below line is where the error occurs
Sheets("VAR1").Range("M8").Value = AAAA

If AAAA = "" Then AAAA = Range("C5").Value
 
B

ben

the line Sheets("VAR1").Range("M8").Value = AAAA
may be trying to read from the other open workbook change code to this
thisworkbook.Sheets("VAR1").Range("M8").Value = AAAA
and see if that works
ben
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Runtime error 438 1
Cell values to an array, then array transpose to another workbook 8
workbook open in looping 2
Error 9 - Subscript out of range 2
workbook error - please help 1
Copy data from one sheet to another 0
Run time error 9 (Subscript Out Of Range) 2
Subscript out of range error 7

Top