Find Last Column used in a Worksheet

Sub FindLastColumn()

Dim LastColumn As Integer

   If WorksheetFunction.CountA(Cells) > 0 Then

      'Search for any entry, by searching backwards by Columns.

      LastColumn = Cells.Find(What:="*", After:=[A1], _

                         SearchOrder:=xlByColumns, _

                    SearchDirection:=xlPrevious).Column

               MsgBox LastColumn

   End If

End Sub