Need help with ActiveCell

[curtryan45]

Ok, here is what I am trying to do. I have a list of items. I want to be able to click on any item in that list, then hit a commandbutton(contains the macro) which will then find whatever I clicked on in another table. Here is what I have so far. Note : The cells I will be clicking on have text, not numbers

Sub Button36_Click()
Dim CurCell as Range
Dim c As Range
Set CurCell = ActiveCell.Value
Set c = Range("C4:C18").Find("CurCell")
End Sub

 

[Domski]

Hi,

Try:

Dim c As Range
Set c = Range("C4:C18").Find(What:=ActiveCell.Value, LookIn:=xlValues)

Hope it helps,

Dom

 

[jindon]

Sub Button36_Click()
Dim CurCell as Variant
Dim c As Range
'Set CurCell = ActiveCell.Value
CurCell = ActiveCell.Value
Set c = Range("C4:C18").Find(CurCell)
End Sub

↓

Dim c As Range
Set c = Range("C4:C18")Find(ActiveCell.Value)