Locking Macro-Assigned Pictures so not to corrupt file

[Dom2012]

Hi,

I have picture buttons I have assigend macros to. The first, when clicked on, adds a row. The second deletes a row.

If the user puts the cursor in the wrong cell before clicking on either 'button', they delete the wrong row and corrupt the file. They could only recover it by closing the file without saving changes, and re-opening it - which is not an ideal solution.

Is there a way to link the macro-assigned picture buttons to specific cells so that if the user has the cursor in the wrong cell, the buttons won't work and a message tells them what to do? The soltion would also have to refer to non-relative cells since, as a row is added or deleted, it changes the cell's number by +/- one.

Thanks,

Dom

PS. If this is not clear, let me know and I'll explain better!

 

[Dom2012]

So it would look like this...? Having something in the cells above it will actually be useful - it'll make something else work too.

Cells(1, 1).End(xlDown).Select
ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(-1, 0).Range("A1:AP1").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1:AP1").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
ActiveCell.Offset(-2, 0).Range("A1:AP1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1:AP1").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
ActiveCell.Offset(2, 0).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C)"
ActiveCell.Offset(-2, 2).Range("A1:C1").Select
End Sub

 

[Andrew Poulsom]

That should do it. Try it and see.

 

[Dom2012]

Strangely, it made it duplicate a completely different cell several rows and columns away from the work area. Any idea why that might be?