Maybe this is a easy option, you can use FolderName now in the save line
Sub TestChuck()
Dim FolderName As String
Select Case Month(Range("E4"))
Case 1: FolderName = "January" & Year(Range("E4"))
Case 2: FolderName = "February" & Year(Range("E4"))
Case 3: FolderName = "March" & Year(Range("E4"))
Case 4: FolderName = "April" & Year(Range("E4"))
Case 5: FolderName = "May" & Year(Range("E4"))
Case 6: FolderName = "June" & Year(Range("E4"))
Case 7: FolderName = "July" & Year(Range("E4"))
Case 8: FolderName = "August" & Year(Range("E4"))
Case 9: FolderName = "September" & Year(Range("E4"))
Case 10: FolderName = "October" & Year(Range("E4"))
Case 11: FolderName = "November" & Year(Range("E4"))
Case 12: FolderName = "December" & Year(Range("E4"))
End Select
MsgBox FolderName
End Sub
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"Ron de Bruin" <(E-Mail Removed)> wrote in message news:(E-Mail Removed)...
>I see
>
> I think about a solution this evening
>
> --
>
> Regards Ron de Bruin
> http://www.rondebruin.nl/tips.htm
>
>
> "CLR" <(E-Mail Removed)> wrote in message news:A2CF814B-DC86-48DC-91E7-(E-Mail Removed)...
>> Hi Ron......
>> User is using English Excel 2007 with Regional language setting of
>> Dutch(Belgium). when he uses my program to create an Invoice, the date is
>> entered as Oktober 21, 2009 in cell E4. My macro tries to save the invoice
>> coded with the date in the filename in the "October2009" directory and it
>> does not find a "Oktober2009" directory so it crashes. If I use English
>> settings it works fine, and if I change the directory name to Oktober2009 for
>> the Dutch setting it works fine but management does not want to do
>> that.......so, if I could use a couple of change-event macros to change the
>> Regional Language setting upon upening and closing the file, all would be
>> well.......I know how to write the macros, just don't know the code to use to
>> change the Language setting.
>>
>> Vaya con Dios,
>> Chuck, CABGx3
>>
>>
>>
>> "Ron de Bruin" wrote:
>>
>>> Why do you want to do this Chuck
>>>
>>> --
>>>
>>> Regards Ron de Bruin
>>> http://www.rondebruin.nl/tips.htm
>>>
>>>
>>> "CLR" <(E-Mail Removed)> wrote in message
>>> news:E130F650-8643-4A6D-BCF7-(E-Mail Removed)...
>>> > Hi All.....
>>> > Excel 2007 English version 12.0.4518.1014
>>> >
>>> > Can anyone tell me if it's possible to change the Regional Language
>>> > setting
>>> > in the users Excel from Dutch(Belgium) to English(United States) upon
>>> > opening
>>> > the file and then change it back on closing?
>>> >
>>> > TIA
>>> > Vaya con Dios,
>>> > Chuck, CABGx3
>>> >
>>>
>>> .
>>>