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
-~----------~----~----~----~------~----~------~--~---
