Hi all,

I have the following code in a cmd button on a sheet;


Code
-------------------

If r = vbYes Then

ActiveSheet.Unprotect Password:=Pass

Range(Cells(start, 1), Cells(finish, 18)).Select
Selection.Copy
Call FindNextEmpty
ActiveCell.Offset(0, -6).Select
Selection.PasteSpecial Paste:=xlValues

With Selection.Borders(xlEdgeBottom)
.LineStyle = xlDot
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

For i = start To finish
ActiveSheet.Rows(start).Delete
Next
Range("A2").Select
ActiveSheet.Protect Password:=Pass

*frmMain.Show*

End If

-------------------


Keep getting an error saying 'Invalid Property Value'? any ideas

--
gti_jober
-----------------------------------------------------------------------
gti_jobert's Profile: http://www.excelforum.com/member.php...fo&userid=3063
View this thread: http://www.excelforum.com/showthread.php?threadid=51615