Hi All,
I have a problem with my VBA. I'm getting runtime error 1004 Paste method of Worksheet class failed only when I share my workbook!
Everything is working fine when not shared, and I can't figure out what's wrong!
can you please check my VBA and point me what can be wrong?
Any help will be very appreciated.
my VBA:
Sheets("Ward Schedule(5)").Select
Windows("Ward Serac Bausch Schedules USE THIS ONE.xlsx").Activate
Range("D:D,F:F,G:G,I:I,J:J,K:K,L:L,M:M,N:N").Select
Selection.Copy
Windows("KAROL_WAREHOUSE_SCHEDULE.xlsm").Activate
Sheets("Ward (Line 5)").Select
Range("A1:I1").Select
ActiveSheet.Paste
Columns("A:M").EntireColumn.AutoFit
Application.CutCopyMode = False
Selection.AutoFilter
ActiveSheet.Range("A1").Select
Call find_last_cell_2
ActiveWorkbook.Save
Workbooks("Ward Serac Bausch Schedules USE THIS ONE.xlsx").Close False
I have a problem with my VBA. I'm getting runtime error 1004 Paste method of Worksheet class failed only when I share my workbook!
Everything is working fine when not shared, and I can't figure out what's wrong!

Any help will be very appreciated.
my VBA:
Sheets("Ward Schedule(5)").Select
Windows("Ward Serac Bausch Schedules USE THIS ONE.xlsx").Activate
Range("D:D,F:F,G:G,I:I,J:J,K:K,L:L,M:M,N:N").Select
Selection.Copy
Windows("KAROL_WAREHOUSE_SCHEDULE.xlsm").Activate
Sheets("Ward (Line 5)").Select
Range("A1:I1").Select
ActiveSheet.Paste
Columns("A:M").EntireColumn.AutoFit
Application.CutCopyMode = False
Selection.AutoFilter
ActiveSheet.Range("A1").Select
Call find_last_cell_2
ActiveWorkbook.Save
Workbooks("Ward Serac Bausch Schedules USE THIS ONE.xlsx").Close False