I have this code:
Sub FindNextEmptyCell()
' Finds next emptycell to the right of Row 4
Range("A4").End(xlToRight).Offset(0, 1).Select
End Sub
What i want to do is set this activecell to a name i can refer back to later, using the name "MIDS" and a cell 8 rows down named "NORTH".
Another piece of code i need is also to add the values of the 4 rows before the "MIDS" and store it in a variable called "iReports".
Any help appreciated.
Sub FindNextEmptyCell()
' Finds next emptycell to the right of Row 4
Range("A4").End(xlToRight).Offset(0, 1).Select
End Sub
What i want to do is set this activecell to a name i can refer back to later, using the name "MIDS" and a cell 8 rows down named "NORTH".
Another piece of code i need is also to add the values of the 4 rows before the "MIDS" and store it in a variable called "iReports".
Any help appreciated.