Как установить переменную как адрес из функции .find в VBA?

Question

Вот фрагмент того, что у меня есть сейчас. ListBoxAsset является выбором из списка. Прямо сейчас он выдает ошибку 91 в первой строке смещения / удаления. Любая помощь или отзывы очень ценятся !!!

Private Sub CommandButton2_Click()

Dim assetName As Long
assetName = ListBoxAsset.Value

Dim rgFound As Range
Set rgFound = Range("B4:B18").Find(assetName)


Dim assetLoc  As Range
If Not rgFound Is Nothing Then assetLoc = rgFound.Address

assetLoc.Offset(0, 0).Delete (xlShiftUp)
assetLoc.Offset(0, 1).Delete (xlShiftUp)
assetLoc.Offset(0, 2).Delete (xlShiftUp)



Unload Me

End Sub