if ActiveCell.Column =1 and selection.columns.count=1 Then

etc.


"magix" wrote:

> Hi,
>
> In excel VBA code, I have:
>
> If ActiveCell.Column =1 Then
> Msg "It is Column A Only"
> Else
> Msg "It is NOT Column A"
> End If
>
>
> But How can I check if the selection is actually More than Column A.
> Example: When user select cell in column A (A11) and cell in column B (B11),
> if use above code, it will still prompt "It is Column A Only". I want to
> avoid that because B11 is included.
>
> I think I should have something like:
>
> If ActiveCell.Column =1 Then
> ' Check if there is other column included
> If there is other column than column A included
> Msg "Warning, it's NOT only Column A"
> Else
> Msg "It is Column A Only"
> End If
> Else
> Msg "It is NOT Column A"
> End If
>
> Thanks in advance.
>
> Regards.
>
>
>