Yes it's called ActiveWorkbook.

Dim mywb As Workbook
Application.Dialogs(xlDialogOpen).Show
Set mywb = ActiveWorkbook

(if the user presses the cancel button the active workbook  will remain
the one that was active before the dialogue box was shown, so mywb may
not end up being the workbook you expect)