I am getting the error: Excel cannot complete this task with the available resources. Choose less data or close other applications.

I'm not sure what this means. The error hapens after msgbox 2 but before msgbox 3, which leads me to believe that it is the SaveAs that is causing the error. I have also tried wbNew.SaveAs Filename:=strGeneric, but still get the same error. I should also mention that i only have the excel doc and the VBA Code window open, nothing else.

I hope that someone will be able to help...I have not had any luck at any other forums.

Here is the code:

Do While rngGeneric.Offset(i - 1) <> ""

strGeneric = rngGeneric.Offset(i - 1).Value

wsForecast.Copy

Msgbox "1"

Set wbNew = ActiveWorkbook

msgbox "2"

wbNew.SaveAs strGeneric

Msgbox "3"

wbOriginal.Activate