Can not move sheet to Shared Workbook. How can solve ?

[sthanawa]

Hi All,
I have 2 workbooks.

1. Workbook name OldDataBase.xls
2. Workbook name Result DataBase.xls (This workbook is share workbook)

OldDatabase.xls contain a short Macro as following.

Sub AddNewDatabase()

Sheets("DataBase 2005").Select
Sheets("DataBase 2005").Copy After:=Workbooks( _
"Result DataBase.xls").Sheets(1)
End Sub

The propose is to move sheet Database 2005 from OldDataBase.xls to Result Database.xls

But I found run time error '1004' said
'This command is not available in a shared workbook'

Please suggest me , how can I solve this problem ?

 

[sthanawa]

Hi All ,

Any suggest ?

 

[agihcam]

how about unsharing the workbook, copy the sheets then shared again?

 

[sthanawa]

Hi All,

My probelm is that the Workbook name 'Result DataBase.xls ' was set to be shared workbook.

When I move a sheet from workbook 'OldDataBase.xls' into 'Result Database.xls' by VBA , it alert me with run time error '1004' said
'This command is not available in a shared workbook'

I can not disable shared workbook for 'Result Database.xls' because this workbook was openned by other user at the same time.

But I want to update this workbook by add a new sheet by move that sheet from 'OldDataBase.xls'

How can I solve this problem ?