insufficient memory

[hugobos]

I need to run (a variant of) this module a few hundred times.
After a few times (2 to 5) I get an error "insufficient memory".

Anybody any idea how to fix this?

Sub testertje()


Dim WBmodel As Workbook
Dim WSscan As Worksheet
Dim pad As String


pad = "G:\PM\1_16_Monitoren\05_Terugkerende_rapportering\22_Teamscan\winterversie\"


Workbooks.Open Filename:=pad & "modelteam.xlsm"


Set WBmodel = ActiveWorkbook
Set WSscan = WBmodel.Sheets("modelscan")


WSscan.Copy After:=Sheets(1)
Sheets("modelscan (2)").Name = "Boschmans"


WBmodel.SaveAs (pad & "vanuyts_desmet.xlsm")


WBmodel.Close savechanges:=False


Set WSscan = Nothing
Set WBmodel = Nothing


End Sub

I have excel 2010 and installed office 64bits

 

[hiker95]

hugobos,

Welcome to the MrExcel forum.

In a copy of your workbook, try adding the BOLD line of code:

Set WBmodel = Nothing

Application.CutCopyMode = False

End Sub

 

[hugobos]

thx, that seems to work

 

[hiker95]

hugobos,

Thanks for the feedback.

You are very welcome. Glad I could help.

And, come back anytime.