Hi Met,

As the lead comments in the sub indicate, you still need to use the two
support functions in my other post. Here they are again:

Function bBookIsOpen(wbkName) As Boolean
' Checks if a specified workbook is open.
'
' Arguments: wbkName The name of the workbook
'
' Returns: True if the workbook is open

Const sSource As String = "bBookIsOpen()"

Dim x As Workbook
On Error Resume Next
Set x = Workbooks(wbkName)
bBookIsOpen = (Err = 0)

End Function


Function bFileExists(fileName As String) As Boolean
' Checks if a file exists in the specified folder
'
' Arguments: fileName The fullname of the file
'
' Returns: TRUE if the file exists

Const sSource As String = "bFileExists()"

On Error Resume Next
bFileExists = (Dir$(fileName) < "")

End Function

Regards,
Garry

Done deal...

Thanks..

One more thing:

I need the date to be in the format FEB 2006, I still need the date
to back up one month but abbreviate the date and display the year.

Once again..

Thanks,
Met


--
Metrazal
------------------------------------------------------------------------
Metrazal's Profile: http://www.excelforum.com/member.php...o&userid=31648
View this thread: http://www.excelforum.com/showthread...hreadid=518833

Done deal...

Thanks..

One more thing:

I need the date to be in the format FEB 2006, I still need the date
to back up one month but abbreviate the date and display the year.

Once again..

Thanks,
Met


--
Metrazal
------------------------------------------------------------------------
Metrazal's Profile: http://www.excelforum.com/member.php...o&userid=31648
View this thread: http://www.excelforum.com/showthread...hreadid=518833

Hi Met,

Modify as follows:

sNewName = UCase$(left(monthname(month(date)-1),3)) & " " & year(date)

Regards,
Garry


"Metrazal" wrote:


Done deal...

Thanks..

One more thing:

I need the date to be in the format FEB 2006, I still need the date
to back up one month but abbreviate the date and display the year.

Once again..

Thanks,
Met


--
Metrazal
------------------------------------------------------------------------
Metrazal's Profile: http://www.excelforum.com/member.php...o&userid=31648
View this thread: http://www.excelforum.com/showthread...hreadid=518833

Once again..

Many thanks..


--
Metrazal
------------------------------------------------------------------------
Metrazal's Profile: http://www.excelforum.com/member.php...o&userid=31648
View this thread: http://www.excelforum.com/showthread...hreadid=518833