running the following code

If Selection = Selection Then MsgBox "ok"
If Selection.EntireColumn = Selection.EntireColumn Then MsgBox "ok"--
If Selection.EntireColumn.Cells(10) = Selection.EntireColumn.Cells(10) Then
MsgBox "ok"

the first line works
the second line results in a run-time error '13': Type mismatch
the third line works

can anyone explain why 2nd line doesn't work ?

JC

In your 1st & 3rd lines Selection & .Cells(10) returns the value of a
single cell. Both sides of the = being the same the msgbox shows "ok"

In your 2nd line, Selection returns a 2d array of all cell values in the
column.
If you try and do
myArray = myArray
you will get the same error

Of course if had you selected two or more cells your 1st line would have
failed for the same reason.

Regards,
Peter T


"jc" <(E-Mail Removed)> wrote in message
news:AA61C7E8-69AE-4123-BBF6-(E-Mail Removed)...
> running the following code
>
> If Selection = Selection Then MsgBox "ok"
> If Selection.EntireColumn = Selection.EntireColumn Then MsgBox "ok"--
> If Selection.EntireColumn.Cells(10) = Selection.EntireColumn.Cells(10)
Then
> MsgBox "ok"
>
> the first line works
> the second line results in a run-time error '13': Type mismatch
> the third line works
>
> can anyone explain why 2nd line doesn't work ?
>
> JC

If you're just looking to see if the selection is an entire column:

if selection.address = selection.entirecolumn.address then



jc wrote:
>
> running the following code
>
> If Selection = Selection Then MsgBox "ok"
> If Selection.EntireColumn = Selection.EntireColumn Then MsgBox "ok"--
> If Selection.EntireColumn.Cells(10) = Selection.EntireColumn.Cells(10) Then
> MsgBox "ok"
>
> the first line works
> the second line results in a run-time error '13': Type mismatch
> the third line works
>
> can anyone explain why 2nd line doesn't work ?
>
> JC

--

Dave Peterson