VBA works in Windows XP, but not Windows 7

[jrad]

I've recently received an upgraded computer at work. Yay! However, it's running Windows 7 and several of my applications are not working properly anymore.

resultsSheet.Rows("11:" & maxrow).Select

is the statement that fails. I need to select all of the data from row 11 down and create a pivot table. Without selecting the data, I'm pretty sure I can't create the pivot table.

Any ideas would be greatly appreciated.

 

[Boller]

What's the error message?

 

[jrad]

The error message reads "Run-time error '1004': Select method of Range class failed.

Thanks again!

 

[Boller]

resultsSheet needs to be the active sheet when this line of code is run.
Is it the active sheet?

 

[jrad]

I believe so. Here's where you all are probably going to laugh at me. So, I'm running a query in MS Access and outputting the results to Excel. Then, I'm attempting to format the results. It's the only sheet up and should be the active sheet.

This is the code directly before the error.

Set objXLApp = CreateObject("Excel.Application")
Set objXLBook = GetObject(fPath & "\" & filename & ".xlsx")
Set resultsSheet = objXLBook.Sheets(filename)

resultsSheet.Cells.EntireColumn.AutoFit
resultsSheet.Cells.Font.Size = 8

resultsSheet.Range("A1:A10").EntireRow.Insert

resultsSheet.Cells(1, 4).Value = "Report Title "
resultsSheet.Cells(1, 4).Select

The resultsSheet.Cells(1,4).Select fails as well.

Does that help?

 

[Boller]

Try putting this immediately before the line that is selecting cells :-

resultsSheet.Activate

 

[jrad]

Thanks so much for the help. That didn't fix it. I'm also having the issue where Excel won't open certain files at all. I've called our company helpdesk. Hoping they can shed some light.

 

[Boller]

Perhaps :-

resultsSheet.Select