Declare variables to a code?

[Pas]

I have the following code which deletes all rows older then 365 days:

Sub Del_Oldies()
LR = Cells(Rows.Count, 1).End(xlUp).Row
For R = LR To 1 Step -1
If Date - Cells(R, 1) > 365 Then Cells(R, 1).EntireRow.Delete
Next
End Sub

I keep getting error message
Compile error:
Variable not defined
with "LR =" highlighted in blue

How do I modify this code to declare the variables R, and LR as Integers .

 

[ozgrid.com]

Dim LR As Long
Dim R As Long

As the 1st 2 lines in your Procedure.

 

[Mike H]

Hi,

Somewhere else you may have declared

Option Explicit
or

In VB option you may have cheked 'Require variable declaration'

Both of which means all variables have to be declared so declare it at the
start of your code

Sub Del_Oldies()
Dim R as Long, LR as Long
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.

 

[Roger Govier]

Hi

I would use Longs rather than Integers

Sub Del_Oldies()
Dim LR as long, R as long
LR = Cells(Rows.Count, 1).End(xlUp).Row
For R = LR To 1 Step -1
If Date - Cells(R, 1) > 365 Then Cells(R, 1).EntireRow.Delete
Next
End Sub

 

[Pas]

Thanks guys,
I get a runtime error 1004
with the following highlighted:
Cells(R, 1).EntireRow.Delete

 

[Dave Peterson]

Any chance that your worksheet is protected?

Thanks guys,
I get a runtime error 1004
with the following highlighted:
Cells(R, 1).EntireRow.Delete

 

[Pas]

Thanks Dave, didnt think of that!!! I'll try it.

Any chance that your worksheet is protected?