Great,

Was going to ask that question next and maybe suggest you save with the
below statement..

Activeworkbook.Save
--


Thank you and Regards

Garreth Lombard


"Miree" wrote:

Figured it out i forgot to write to save the file before closing.

But still need to know if it is possible to update the size of defined lists
from one source to another.

"Miree" wrote:

I have the following code but it is not pasting and i am not sure why, can
anyone help please. Also In the file cells i am copying from there is a
defined list, will this be updated when in the new file when i paste?

Thank you

Sub UpdateDensities()
'Copy this section changing fluid database name for open and close,

' Open the database.
Workbooks.Open "G:\Drilling Fluids Technology\Fluids
Database\FluidDatabaseTemplate.xls"

'Unlock folder denstities page
Windows("FluidDatabaseTemplate.xls").Activate
Sheets("Densities").Select
ActiveSheet.Unprotect Password:="baker"

'Copy and Paste Section

Windows("FluidDatabaseTemplate.xls").Activate
Columns("H:M").Select
Selection.EntireColumn.Hidden = False

Windows("FluidDatabaseMM.xls").Activate
Sheets("Densities").Select
Columns("A:M").Select
Selection.Copy

Windows("FluidDatabaseTemplate.xls").Activate
Columns("A:M").Select
Selection.pasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False

Columns("H:M").Select
Selection.EntireColumn.Hidden = True

Windows("FluidDatabaseTemplate.xls").Activate
Sheets("Densities").Select
ActiveSheet.Protect Password:="baker"

Windows("FluidDatabaseMM.xls").Activate
Sheets("Extras").Select

'Close Workbook
Application.DisplayAlerts = False
Workbooks("FluidDatabaseTemplate.xls").Close
Application.DisplayAlerts = True

End Sub