Getting run-time error running VBA code not my own

Question

I need to reverse engineer someone else's code and make it run. Right now it is throwing an error at me complaining that some variable isn't set.

I'm not sure what it is talking about exactly. Here is the top part of the subroutine with the error.

Sub OBI_Vendor_Detail_Macro()
    Cells.Select
    With Selection
        .WrapText = False
        .MergeCells = False
    End With
    Range("C4").Select
    Cells.Find(What:="Grand Total", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate

The last line produces this error Run-time error '91': Object variable or With block variable not set

Hope I've provided enough info. If not please let me know. Thanks.

The error you get is because there are no matches of the string you are searching — 3vts
– 3vts, Commented Apr 1, 2017 at 23:47
Let me see if I understand, is Find() supposed to return a cell with the string, and call Activate() on it, but since it is not returning a valid cell object it is invalid to call Activate() on it? — driftwood
– driftwood, Commented Apr 1, 2017 at 23:56
Exactly. So you can change that or check if the text you are looking for (in this case "Grand Total") is no longer a searchable variable within the sheet. I would suspect the Information on the WorkSheet changed in some way — 3vts
– 3vts, Commented Apr 2, 2017 at 0:00

ThunderFrame · Accepted Answer · 2017-04-02 00:18:07Z

2

You need to try to Find first, then check that you found something:

Dim foundCell As Range
Set foundCell = Cells.Find(What:="Grand Total", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)

If Not foundCell Is Nothing Then
  foundCell.Activate
End If

answered Apr 2, 2017 at 0:18

ThunderFrame

9,5162 gold badges31 silver badges64 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Getting run-time error running VBA code not my own

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related