xlFormulas2 is empty in professional plus 2016 edition causing subscript out of range exception

May be xlFormulas2 is for Office 365. To make the find work in both the cases you can avoid the error like ...

Sub Macro1()

Dim foundCl As Range
On Error Resume Next
Set foundCl = Selection.Find(What:="Beijing", After:=ActiveCell, LookIn:=xlFormulas2, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False)
If foundCl Is Nothing Then
Set foundCl = Selection.Find(What:="Beijing", After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False)
End If
On Error GoTo 0

Debug.Print foundCl.Address
foundCl.Activate
End Sub