this approach may work:

Sub UpdateDensities()
Dim TPFile As String
Dim TPWB As Workbook
Dim ThisWKB As Workbook
Dim r1 As Range, r2 As Range

Set ThisWKB = ThisWorkbook

Application.ScreenUpdating = False

TPFile = "G:\Drilling Fluids Technology\Fluids
Database\FluidDatabaseTemplate.xls "

' Open the database.
Set TPWB = Workbooks.Open(TPFile, ReadOnly:=False, Password:="")

'set 1st range to copy
Set r1 = ThisWKB.Worksheets("Densities").Columns("A:M")

With TPWB.Worksheets("Densities")
.Unprotect Password:="baker"

'set 2nd range to paste to
Set r2 = .Columns("A:M")

'copy & paste
r1.Copy r2

.Columns("H:M").Hidden = True

.Protect Password:="baker"
End With

'close & save
TPWB.Close True

Application.ScreenUpdating = True
End Sub

--
jb


"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