Excel VBA object variable type mismatch

Question

I am trying to determine the column number of a header in an Excel spreadsheet using the following VBA code:

Dim aCell As Range
Set aCell = Sheet1.Rows(1).Find(What:="ContractDescription", LookIn:=xlValues, _
 LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
 MatchCase:=False, SearchFormat:=False)

Then the following line of code gives an error:

MsgBox (aCell.Column)

It gives the run-time error 91: "Object variable or With block variable not set".

According to posts that I have read on the internet, this error occurs when you are trying to assign a value of one type to a variable that has been declared as a different type.

However, I am trying to understand why I am getting this error here since aCell is a range object and I am simply taking aCell.Column, but when I do Range("A1").Column I do get the valid 1 printed on the screen.

So what may be causing the problem here?

You might also wanna see THIS

Siddharth Rout
– Siddharth Rout

2013-10-07 12:34:13 +00:00
Commented Oct 7, 2013 at 12:34 — Siddharth Rout
– Siddharth Rout, Commented Oct 7, 2013 at 12:34

Alex K. · Accepted Answer · 2013-10-07 12:31:44Z

3

If .Find fails it will return & set aCell to Nothing so attempting to access any instance members like .Column will raise that error.

To guard against this;

if not aCell Is Nothing
  MsgBox aCell.Column
else
  MsgBox "not found"
end if

answered Oct 7, 2013 at 12:31

Alex K.

177k32 gold badges276 silver badges299 bronze badges

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

Comments

score 2 · Accepted Answer · 2013-10-07 12:40:23Z

2

The reason why you get this error is because aCell is null (no match was found). Before using a range from a Find method (or equivalent, where the range might be Nothing), you have to set a condition on the lines of:

If (Not aCell Is Nothing) Then
  MsgBox aCell.Column
End If

edited Oct 7, 2013 at 12:40

answered Oct 7, 2013 at 12:31

user2480047

3 Comments

Aaa Over a year ago

But since aCell is nothing, MsgBox doesn't get executed - how do I get MsgBox to be executed?

user2480047 Over a year ago

@Anonymous you are free to execute MsgBox outside the condition (or inside an Else with an error message, as suggested by Alex K.). But you cannot show what is not there and if aCell is Nothing the Column is also nothing (no range to show a column from). You are intending to show the column where certain value was found; but the value wasn't found and thus what do you want to show?

Aaa Over a year ago

Oh I finally see! Thank you!

Collectives™ on Stack Overflow

Excel VBA object variable type mismatch

2 Answers 2

Comments

3 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

3 Comments

Your Answer

Sign up or log in

Post as a guest

Related