Function (not SUB) to check if the selected range is square

[afndst]

Hi,

I am trying to develop a function to verify if the selected range is square, without passing any argument, but I am not being capable of counting the number of rows and columns.

Function xlM_IsSquare()

addrss = Application.Caller.Address
m = addrss.Rows.Count

xlM_IsSquare = m


End Function


Regards

António Teixeira

 

[RoryA]

I think you want this:

Function xlM_IsSquare() As Boolean
    With Application.Caller
        xlM_IsSquare = (.Rows.Count = .Columns.Count)
    End With
End Function

Note that this returns True if the formula is array entered into a square range, or normally entered into any cell; False otherwise. I'm not really sure what its purpose might be?

 

[afndst]

Hello,

This is just what I want and it works perfectly.
Thanks a lot.