Hi all, i want to create a back up in of a workbook when a certain amount of data has been entered (the range A2:C4 is just for test purposes) ideally i want to make the back up when 3000 rows have been used and then delete all contents from A2 to C3000 then save, i'm having a bit of trouble sorting out how to find the active range and make the back up when it reaches 3000, can you help?

Here's what i have so far!

Simon

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim lStr_TargetFile As String
Dim sStr As String
Dim Range

With ThisWorkbook

If Range = Range("a2:C4") Then
Else
sStr = ThisWorkbook.Path & "\" & _
Left(ThisWorkbook.Name, InStr(1, _
LCase(ThisWorkbook.Name), _
".xls") - 1) & _
" - " & Format(Now, "yyyymmdd") & ".xls"
End If

.SaveCopyAs sName
SetAttr sName, vbReadOnly
Range("A1:C5").Select
Selection.ClearContents
.Save

End With
End Sub