Or just use the top left cell of the first area in the range.
Option Explicit
Private Sub CommandButton1_Click()
Dim myCell As Range
Set myCell = Nothing
On Error Resume Next
Set myCell = Range(Me.RefEdit1.Value).Areas(1).Cells(1)
On Error GoTo 0
If myCell Is Nothing Then
MsgBox "please select a range"
Else
MsgBox myCell.Address
End If
End Sub
JON JON wrote:
Hello NG,
I wanted to use RefEdit in a userform to allow user to select just a single
cell (not a range). Is this possible? How? Please help
TIA
Jon-jon
--
Dave Peterson