Verify range in VBA question

[kstrick9]

Trying to enter code that will verify that a cell is within the correct range prior to running the rest of the macro. I've tried several ways that give errors. Suggestions appreciated. Thanks

Private Sub CommandButton3_Click()
Dim rng As Range
Set rng = ActiveCell
[COLOR=#ff0000]' Need code to verify that the active cell is within the named range. If not, MsgBox to click within range and then exit sub. If in range, then do the following:[/COLOR]
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("K3") & "Punch List " & rng.Value & " (" & Format(Date, "m.d.yy") & ")"
End Sub

 

[Greg Hitchon]

the easiest way to do this is use something like the following:

if intersect(rng, your_named_range) is nothing then
  msgbox "click within range"
else
'do export
end if

 

[jai9]

Hi,

Try something like,

Sub test7()

Dim rrange As Range

Set rrange = Range("D1:I10")

If Not Intersect(ActiveCell, rrange) Is Nothing Then
    MsgBox "In Range."
Else
    MsgBox "Not in Range."
End If

End Sub

Jai

 

[BAlGaInTl]

Try modifying this to work with your code:

Sub WithinRange()
Dim rng As Range, rngReq As Range
Set rngReq = Range("NamedRange")
Set rng = ActiveCell

    If Not Intersect(rng, rngReq) Is Nothing Then
        'Code to execute here
    Else
        response = MsgBox("Please select a cell within the required range", vbExclamation, "Error")
        Exit Sub
    End If
End Sub

 

[kstrick9]

Thanks for everyone's help. Got it working!