Semplice funzione per Excel che consente di contrarre di n righe una selection (per intenderci, un range di celle) .
Risulta utile anche per spostarsi in su od in giù di n righe se la selection corrente è una singola cella.
Function CropSelection(Rows As Long) As Boolean
Dim sSelection As String
Dim iDollarPosition As Long
Dim sRow As String
Dim lRow As Long
On Error GoTo CropSelection_Error
sSelection = Selection.Address()
iDollarPosition = InStrRev(sSelection, "$")
sRow = Mid(sSelection, iDollarPosition + 1)
lRow = CLng(sRow) - Rows
...