Hi Walter,

Am Tue, 5 Jan 2016 07:52:19 +0000 schrieb Walter Briscoe:

Application.Run("'personal.xls'!FindDate", Date).Activate
That is not portable between XL2003 and XL2007.

OTOH, this probably is portable. (I can't yet test it on XL2007.)
Application.Run("'" & Workbooks(1).Name & "'!FindDate", Date).Activate

check the Excel version (untested):

Dim FN As String

FN = IIf(Val(Application.Version) < 12, "Personl.xls", "Personal.xlsb")
Application.Run("'" & FN & "'!FindDate", Date).Activate


Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional