Hi ... I need some guidance. I would like to run a macro on a shared workbook with the worksheets all protected except for certain cells open for multiple users to input data. The protection is a necessity. So I have a workbook that allows certain users to input data on the master worksheet. Every hour, I would like these "master" users to run my macro that will cut all rows from the master sheet and paste them into the applicable team sheets. Team members will go into the workbook and update certain cells in rows on their team sheet that belong to them (should be no conflicts). My macro runs perfectly until I protect the worksheets. Now I get an error 400. I tried to write into the code a way to unprotect a sheet then protect it again but I couldn't get it to work and I'm not sure if protecting and unprotecting the sheet is an option once the workbook is set to shared. Sigh ... can anyone help? My code looks like this:

Sub move_rows()
Dim lrow As Long, i As Long

Application.ScreenUpdating = False

With Worksheets("Master")
lrow = .Range("A" & .Rows.Count).End(xlUp).Row
For i = lrow To 2 Step -1
If .Range("C" & i).Value = "Maureen" Then
.Rows(i).Copy Worksheets("Maureen").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
.Rows(i).Delete
lrow = lrow - 1
ElseIf .Range("C" & i).Value = "Shrinivas" Then
.Rows(i).Copy Worksheets("Shrinivas").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
.Rows(i).Delete
lrow = lrow - 1
ElseIf .Range("C" & i).Value = "Clarence" Then
.Rows(i).Copy Worksheets("Clarence").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
.Rows(i).Delete
lrow = lrow - 1
End If
Next i
End With

Application.ScreenUpdating = True

End Sub