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
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