Userform Error with Blank RefEdit.

Hi all,

I've got a userform that the user will enter a row into the RefEdit box and click a command button to perform an action. However if someone enters nothing into the RefEdit box and clicks the command button I get an error midway through the macro so that I have to reset.
There's undoubtedly a way to tell it that upon blank click do nothing, but I haven't learnt how to ask it.
Can anyone help?

p.s. Attached is an example of my problem. I'm beginning to think that I might just become a fruit & veg trader as I keep using them for examples lol.

Possibly an error statement would work

Private Sub CommandButton1_Click()
    On Error Resume Next
    Range(RefEdit1).Copy
    Range(RefEdit1).Insert Shift:=xlDown
    Range(RefEdit1).Offset(-1, 0).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
                                               SkipBlanks:=False, Transpose:=False
    Unload Me
    UserForm3.Show
End Sub

Originally Posted by davesexcel

Possibly an error statement would work

Thanks alot Dave, yeah the on error solves it.

Try this as an alternative

Private Sub CommandButton1_Click()
    Dim rRng As Range
    Set rRng = Range(RefEdit1)
    If rRng Is Nothing Then GoTo exit_proc
    With rRng
        .Copy
        .Insert Shift:=xlDown
        .Offset(-1, 0).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
                                    SkipBlanks:=False, Transpose:=False
exit_proc:
    End With
    Unload Me
    UserForm3.Show
End Sub