ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Best VBA test for 2007 in Compatibility Mode? (https://www.excelbanter.com/excel-discussion-misc-queries/141353-best-vba-test-2007-compatibility-mode.html)

[email protected]

Best VBA test for 2007 in Compatibility Mode?
 
2003/2007

The following works fine except when one is using 2007
in compatibility mode.

Is there a better VBA test than "VBA Application.VERSION = "12.0"
to force MaxRows and MaxColumns to the older limits if one is
in compatibility mode?

If Application.VERSION = "12.0" Then
MaxRows = 1048576 - 1
MaxColumns = 16384 - 1
Else
MaxRows = 65536 - 1
MaxColumns = 256 - 1
End If

TIA

Dave Peterson

Best VBA test for 2007 in Compatibility Mode?
 
I think I'd use something like:

With worksheets(1)
maxrows = .rows.count
maxcolumns = .columns.count
end with

I'm not sure why you're subtracting one, though.

wrote:

2003/2007

The following works fine except when one is using 2007
in compatibility mode.

Is there a better VBA test than "VBA Application.VERSION = "12.0"
to force MaxRows and MaxColumns to the older limits if one is
in compatibility mode?

If Application.VERSION = "12.0" Then
MaxRows = 1048576 - 1
MaxColumns = 16384 - 1
Else
MaxRows = 65536 - 1
MaxColumns = 256 - 1
End If

TIA


--

Dave Peterson

[email protected]

Best VBA test for 2007 in Compatibility Mode?
 
The -1 should have been deleted for this query.

Thanks Dave

Dave Peterson wrote:

I think I'd use something like:

With worksheets(1)
maxrows = .rows.count
maxcolumns = .columns.count
end with

I'm not sure why you're subtracting one, though.

wrote:

2003/2007

The following works fine except when one is using 2007
in compatibility mode.

Is there a better VBA test than "VBA Application.VERSION = "12.0"
to force MaxRows and MaxColumns to the older limits if one is
in compatibility mode?

If Application.VERSION = "12.0" Then
MaxRows = 1048576 - 1
MaxColumns = 16384 - 1
Else
MaxRows = 65536 - 1
MaxColumns = 256 - 1
End If

TIA



All times are GMT +1. The time now is 06:31 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com