Determine if entire row or column is selected

[MC82]

Is there a way I can determine if an entire row or column is selected?

So if I select Column A, I can get my macro to recognize that I have
done so and do a certain function.

 

[Guest]

If selection.Address(0,0) = "A:A" then

 

[JE McGimpsey]

One way:

Dim bEntireColumn As Boolean
Dim bEntireRow As Boolean
With Selection
bEntireColumn = .Address = .EntireColumn.Address
bEntireRow = .Address = .EntireRow.Address
End With
If bEntireColumn Then MsgBox "Entire column(s) selected"
If bEntireRow Then MsgBox "Entire row(s) selected"

 

[MC82]

JE McGimpsey,
Thanks that was perfect.