Works on Windows not on my Mac

Can someone help me get this to work on a Mac?
Sub LastBorderedRowNumber()

Dim LastCellWithBorder As Long
Const ColumnLetter As String = "A"
Application.FindFormat.Clear
Application.FindFormat.Borders(xlEdgeBottom).LineStyle = xlSolid
LastCellWithBorder = Columns("A").Find("*", SearchDirection:=xlPrevious, SearchFormat:=True).Row
Application.FindFormat.Clear

' Let just see what we calculated
MsgBox "Last bordered cell in Column " & ColumnLetter & " is on Row " & LastCellWithBorder
End Sub

This is not related to any OS in particular.
The correct functioning of this routine depends on the application you are running it in ( Visual Basic, Excel macro, ..... )

What application are you developing/testing this in ?

Cheers ... McBie

Sorry , new at this. This was for an Excel for Mac macro. Have since found that the application.find function has been eliminated in Excel for Mac. No one knows why. I will do a for loop instead. Thank you for your response.