Hello,
How can I tell if an entire column has been selected or just a few cells in
the column?

Thanks,

Bill

Just a single column?

if selection.address = selection.cells(1).entirecolumn.address then
'whole column
else
'not whole column
end if



Bill wrote:

Hello,
How can I tell if an entire column has been selected or just a few cells in
the column?

Thanks,

Bill

--

Dave Peterson

Thanks Dave,
It could be multiple columns as well.

Bill
"Dave Peterson" wrote in message
...
Just a single column?

if selection.address = selection.cells(1).entirecolumn.address then
'whole column
else
'not whole column
end if



Bill wrote:

Hello,
How can I tell if an entire column has been selected or just a few cells
in
the column?

Thanks,

Bill

--

Dave Peterson

if selection.address = selection.entirecolumn.address then



Bill wrote:

Thanks Dave,
It could be multiple columns as well.

Bill
"Dave Peterson" wrote in message
...
Just a single column?

if selection.address = selection.cells(1).entirecolumn.address then
'whole column
else
'not whole column
end if



Bill wrote:

Hello,
How can I tell if an entire column has been selected or just a few cells
in
the column?

Thanks,

Bill

--

Dave Peterson

--

Dave Peterson

Bill,

How about calling this, once your cells are selected?

Sub IsItAColumn()

Dim CountCell As Range
Dim Count As Long

For Each CountCell In Selection
Count = Count + 1
Next
If Count = 65536 Then
MsgBox ("You've selected the entire column")
Else
MsgBox ("You've just selected cells")
End If
End Sub

Mind you, you might need to make it a bit more clever if you selected (for
example)8 columns by 8192 rows, which equates to the same thing i.e. 65536

Hope this helps

Pete

"Bill" wrote:

Hello,
How can I tell if an entire column has been selected or just a few cells in
the column?

Thanks,

Bill