Getting r/t 13 - Type Mismatch on this line - Why?

  • Thread starter Thread starter JMay
  • Start date Start date
You need to cater for none being found, and test for Nothing not True. And
best to use the builtin constant, not its value

Dim rng As Range

On Error Resume Next
Set rng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeComments)
On Error GoTo 0
If Not rng Is Nothing Then

MsgBox "comments"
End If
 
appreciate the 3 (important) pointers!!


Bob Phillips said:
You need to cater for none being found, and test for Nothing not True. And
best to use the builtin constant, not its value

Dim rng As Range

On Error Resume Next
Set rng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeComments)
On Error GoTo 0
If Not rng Is Nothing Then

MsgBox "comments"
End If


--
__________________________________
HTH

Bob
Click to expand...
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Not getting "argument type mismatch" 4
Type Mismatch (13) 2
MSGBOX Run-time Error '13': Type mismatch 6
Dim problems 7
Type mismatch 1
Insert row gives run-time error 13 message 1
please help me with this error...user defined not defined. 3
Run time error 13, type mismatch 7

Back
Top