Excel VBA Select Column Very Slow

Using old macros created long ago and they used to work OK but Excel 2013/2016 take a couple of minutes to select a column. There are less than 500 rows in the spreadsheet.

Any ideas how to speed this up?

' Locate last record in database 2 minutes 39 seconds
    Columns("B:B").Select

   Selection.Find(what:="", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        ).Select
   sze = Selection.Row

Select allOpen in new window