RowVar Formula error

[Red over White]

I'm getting 'Run time error 424' on the following:

Option Explicit

Sub Input2() '

Dim r As Integer
Dim RowVar As Variant

RowVar.Formula " =SUM(Input!A1)"

Sheets("Input2").Rows(RowVar(r + 6).RowVar(r + 6)).Select
Selection.Interior.Colour = vbRed

End Sub

Also will "r + 6" work

 

[VoG]

You haven't assigned a value to RowVar and you cannot assign a formula to a variable.

 

[VoG]

Perhaps you mean

RowVar = Sheets("Input").Range("A1").Value

But you haven't assigned a value to r.

 

[Red over White]

My aim is to identify subsequent rows each month, 86, 87 and so on. I have a different macro which takes care of Input!A1. I know that as the number changes each month, I have to use a letter to signify it. Have I gone off on the wrong course?

Thanks

 

[VoG]

Perhaps you mean something like this

Sub Input2() '
Dim RowVar As Variant
RowVar = Sheets("Input").Range("A1").Value
Sheets("Input2").Rows(RowVar & ":" & RowVar + 6).Interior.Color = vbRed
End Sub

 

[Red over White]

Thanks