I'm incredulous about ScreenUpdating being the problem, but nontheless, turn
it off at the top and
just turn it back on at the end:

Private Sub Worksheet_Change(ByVal Target As Range)


If Application.CutCopyMode 0 Then Exit Sub


'Turn calculation and screen updating off whilst the following code
executes
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False


'Unprotect the worksheet and disable the selection of locked cells
Worksheets("Output").Unprotect Password:="xxxxx"
Worksheets("Output(budgets)").Unprotect Password:="xxxxxx"


Worksheets("Budgets").CompileButt.BackColor = RGB(255, 0, 0)
Worksheets("Budgets").CompileButt.Caption = "Needs a Compile!"
Worksheets("Budgets").CompileButt.PrintObject = True


Worksheets("Output").Range("A2").Value = "A compile is outstanding!"
Worksheets("Output(budgets)").Range("F2").Value = "A compile is
outstanding!"


'Protect the worksheet and disable the selection of locked cells
Worksheets("Output").Protect Password:="xxxxx"
Worksheets("Output").EnableSelection = xlUnlockedCells
Worksheets("Output(budgets)").Protect Password:="xxxxxx"
Worksheets("Output(budgets)").EnableSelection = xlUnlockedCells
Application.ScreenUpdating = True

End Sub



"KobusD" wrote in message
oups.com...
Hi, Tom

I've realised that it is the "screen updating" command that is causing
the problem. With this commented out the inserting & deleting of rows
are OK! The screen graphics are however a bit messy and I need to
perform something like "ScreenUpdating = False". Any ideas?