Question

I am trying to determine if a selected range is within a set area… This toggles Copy/Paste restrictions in the spreadsheet. I have figured it out, I think, but I’m getting a run-time error 6 (Overflow) if you select an entire row or column. This is what I’ve got..

Function BETWEENROWS(ByVal Selected As Range, ByVal Min As Double, ByVal Max As Double) As Boolean
    Dim LastRow As Integer
    LastRow = Selected.Row + Selected.Rows.Count - 1
    If BETWEEN(Min, Selected.Row, Max) = True And BETWEEN(Min, LastRow, Max) = True Then
        BETWEENROWS = True
    Else
        BETWEENROWS = False
    End If
End Function

There is one for columns BETWEENCOLUMNS as well and the function BETWEEN just returns True/False if a given number is between a min and max value.

This is working great, however, if an entire row/column is selected it’s throwing an error and I’m not too familiar with VBA and the only way that I know of bypassing the error is with On Error Resume Next but that seems like I’m putting a bandaid on it and would like to figure out how to fix it another way.

Answer 1

Your LastRow variable is not the correct type for a number as large as the max columns/rows of the spreadsheet. Change the type to Long:

Dim LastRow As Long