View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Gary''s Student Gary''s Student is offline
external usenet poster
 
Posts: 11,058
Default Object Required - My Brain is Obviously Not Working

Drop the Set:

LookupValuesColumn = InputRange.Column

also:

1. consider Dim'ing LookupValuesColumn as Long
2. consider storing it in a cell or Dim'ing it in a static or public location.
--
Gary''s Student - gsnu200857


"Paige" wrote:

Have the following code tied to a userform, with a refedit. Works fine,
except that I need to store the column number selected by the end user for
future use and keep getting the 'object required' message on the "Set
LookupValuesColumn = InputRange.Column" line below. Know this is simple but
I'm just not getting it. Can someone please advise how to fix?

Private Sub SelectVLookupLookupValueContinue_Click()
Dim InputRange As Range
Dim InputSheet As Worksheet
Dim LookupValuesColumn As String

Set InputRange = Range(VLookupLookupValueColumnRefEdit.Text)
Set InputSheet = InputRange.Parent
Set InputRange = Application.Intersect(InputRange, InputSheet.UsedRange)

'Store column number for future use
Set LookupValuesColumn = InputRange.Column

Unload Me
End Sub