COUNTA Function in VBA

Hi All,

I have a column with dates (UK format). What I want to do is select a range in that columns and count the number there are, i.e:

Column A

01/03/2007
02/03/2007
03/03/2007
04/03/2007
05/03/2007

Say I select rows 2 to 3 in column A, when I run the macro I want a msgBox to return, "You selected 3". This is what I have:

Sub test()
    Dim selAddress As String
    Dim numSelected As Integer

    selAddress = Selection.Address
    numSelected = WorksheetFunction.CountA(selAddress)
   
    msgBox("You selected " & numSelected)

End Sub

My problem is, that the function keeps returning 1, no matter how many I select. I have attached an example for you to look at

Thanks,
mccreaso