Problem solved. In case any one is wondering here i got the current
month as something i could use.
Code:
--------------------
Dim mystr
mystr = Format(Date, "mm")
--------------------
then just used this:
Code:
--------------------
fileSaveName = Application.GetSaveAsFilename("C:\Documents and Settings\My Documents\Testing\excel\" & empinput & mystr, fileFilter:="CSV Files (*.csv), *.csv")
--------------------
Steel Monkey
--
Steel Monkey
------------------------------------------------------------------------
Steel Monkey's Profile:
http://www.excelforum.com/member.php...o&userid=29051
View this thread:
http://www.excelforum.com/showthread...hreadid=572173