"Insert method of Range class failed" in Shared mode

**BartDeHertogh** · 11-05-2010, 04:18 AM

Hi,

I get a "run-time error '1004':Insert method of Range class failed" message when I run this macro in workbook shared mode. It works fine in normal mode.

Can you help me ?
Thanks,
Bart

Sub DataInputFacBXL()
'
' Macro recorded 04/11/2010 by De Hertogh Bart
'

'
    Application.ScreenUpdating = False
    Range("B15:I15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("DataSheet").Select
    Range("A2:H2").Select
    Selection.Insert Shift:=xlDown
    Selection.Interior.ColorIndex = xlNone
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
        :=xlBetween
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With
    Sheets("TASK Input").Select
    Range("D15:H15").ClearContents
    Range("D15").Select
    ActiveCell.Select
    Application.ScreenUpdating = True
    
End Sub

**romperstomper** · 11-05-2010, 04:37 AM

You cannot insert blocks of cells in shared workbooks, only entire columns or rows.

**BartDeHertogh** · 11-05-2010, 07:31 AM

OK, thanks

**ubospawis** · 04-18-2012, 03:50 PM

Please help me with my code also I am receiving same error message.

Private Sub Ipasok2_Click()
Worksheets("sheet1").Range("B59").Value = 1
Dim InsertVar(9)
For i = 1 To 9
InsertVar(i) = Worksheets("sheet1").Cells(57, 1 + i).Value
Next
Worksheets("sheet3").Range("a5").EntireRow.Insert
For i = 1 To 5
Worksheets("sheet3").Cells(5, i).Value = InsertVar(i)
Next
For i = 6 To 7
Worksheets("sheet3").Cells(5, i + 6).Value = InsertVar(i)
Next
For i = 8 To 9
Worksheets("sheet3").Cells(5, i + 8).Value = InsertVar(i)
Next
'Worksheets("sheet3").Select
'ActiveSheet.Range("ComData").Select
Worksheets("Sheet3").Range("ComData").sort _
Key1:=Worksheets("Sheet3").Range("A4")
'ActiveCell.Selection.sort Key1:=Range("a4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Worksheets("sheet1").Select
End Sub