Find returning value not range

[epactheactor]

Hello,

I'm attempting to use a find function in my code. Yet, when I run it, it puts the value of the cell into the variable and not the range.

Could someone please tell me what i am doing wrong?

Sub Saving_Crack()


Dim IDnum As String
Dim filePath As String
Dim crackIDnum As Range
Dim wt As Variant
Dim crackIDwkbk As String
Dim a As Range


'to get the ID number


crackIDwkbk = ActiveWorkbook.Name
Sheets("Properties").Activate
IDnum = Range("B2").Value




'go to masterlist
Windows("Check Defect Data Inputs").Activate
Set crackIDnum = Range("B1:B123").Find(IDnum)
Debug.Print crackIDnum




'flaw label as a variable
Range(crackIDnum).Offset(0, 15).Value = wt

End Sub

 

[Fluff]

It is putting the range object into the variable not the cell value, if you use

Debug.Print crackIDnum.Address

you can see that.
Also this line

Range(crackIDnum).Offset(0, 15).Value = wt

should be

crackIDnum.Offset(0, 15).Value = wt

 

[epactheactor]

So say the find function finds ("B3") as the range that contains the value. By removing the Debug Print statement the variable will be the range of B3?

 

[Fluff]

The variable will be Range("B3") with or without the Debug.Print line.

Debug.Print does not change the variable it simply prints information to the Immediate window.