Change this line:

Public Function gsGetFilename(Optional rsInitialPathFName _
As String = vbNullString) As String

to this:

Public Function gsGetFilename() As String

I think that is the cause of the error


--
tmort
------------------------------------------------------------------------
tmort's Profile: http://www.excelforum.com/member.php...o&userid=21053
View this thread: http://www.excelforum.com/showthread...hreadid=389077