I just had Office 2007 completely removed and re-installed on my
company laptop in hopes of solving this problem but the problems still
exists. Here again are the symptoms:
Selection.Columns.Count - generates Error 6 Overflow even with one
cell selected
Selection.Cells.CountLarge - generates Error 458 Variable uses an
Automation type not supported in Visual Basic
Any idea what might be the problem? Is there a library that is
missing or not being reference? Is there some incompatibility with
another program (I do have Visual Studio 2005 installed). Other
computers in my company do not have this problem so there is something
about my laptop that is causing this problem.
On Oct 15, 5:53 am, Paul Schreiner <schreiner_p...@att.net> wrote:
> There must be something else going on.
> I copy/pasted your macro into a new workbook
> and it worked perfectly.
>
> I also am using Excel2007 SP2 and WindowsXP SP2
>
> first, copy your sub into a code module of a new workbook
> and test it. if it works there, it is something
> related to the workbook you're in.
>
> Paul
>
> ________________________________
> From: fitman <jchau...@panix.com>
> To: MS EXCEL AND VBA MACROS <excel-macros@googlegroups.com>
> Sent: Wednesday, October 14, 2009 4:35:32 PM
> Subject: $$Excel-Macros$$ Excel 2007 Run-time error '6': Overflow on
> Selection.Columns.Count
>
> The following code shown below is straight from the Excel 2007 msdn
> web page on the Range.Count Property. When I select a range on Sheet1
> and run the macro a Run-time error '6': Overflow error is generated on
> the following line of code:
>
> MsgBox "The selection contains " & Selection.Columns.Count & "
> columns."
>
> I am running Excel 2007 SP2 on Windows XP SP2. Any idea what the
> problem might be?
>
> Thanks,
>
> fitman
> -------------------------------------
>
> Sub DisplayColumnCount()
> Dim iAreaCount As Integer
> Dim i As Integer
>
> Worksheets("Sheet1").Activate
> iAreaCount = Selection.Areas.Count
>
> If iAreaCount <= 1 Then
> MsgBox "The selection contains " & Selection.Columns.Count & "
> columns."
> Else
> For i = 1 To iAreaCount
> MsgBox "Area " & i & " of the selection contains " & _
> Selection.Areas(i).Columns.Count & " columns."
> Next i
> End If
> End Sub
--~--~---------~--~----~------------~-------~--~----~
----------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,500 subscribers worldwide and receive many nice notes about the
learning and support from the group. Our goal is to have 10,000 subscribers by
the end of 2009. Let friends and co-workers know they can subscribe to group at
http://groups.google.com/group/excel-macros/subscribe
-~----------~----~----~----~------~----~------~--~---
