UDF to run application.CalculateFullRebuild

[nevergiveup]

I am trying to use a UDF (loaded from an add-in) to force the active workbook to execute a application.CalculateFullRebuild. I am aware that the user can simply do a CTRL+ALT+SHIFT+F9. And I am also aware that I can run a sub with one line with

application.CalculateFullRebuild

or like so:

Sub calfullrebuild()

Dim thisbook As Workbook
Set thisbook = ThisWorkbook

With thisbook
    .application.CalculateFullRebuild
End With

End Sub

Again, my question is can I write a UDF that does the same thing if so how?

And perhaps this is related, how could I write a UDF that simply called the above sub?

As always many thanks in advance!