RunTime Error 13 and Type Mismatch...

**TheNewGuy** · 08-23-2010, 02:48 PM

Hello, I have a LARGE workbook that I have made with a lot of help from this forum and it has been working great until recently when I made some changes to it. Now I get this error,

RunTime Error 13
Type Mismatch

when trying to show some of the userforms. What is weird is it worked fine and I don't think I changed anything that would have affected it. I don't know where to start on this one so any help would be really appreciated.
thanks for your time.

EDIT: The Problem was solved By fixing Problems in the initialize script as suggested later in the thread.

Is it possible that there is an error in Range("B24"), or Range("G40") ?
For example "#DIV/0", this would return error 13

Thanks for everyone's help.

**shg** · 08-23-2010, 02:54 PM

You can use an error message as a thread title, you cannot use "Unkown Problem"

Please change it.

After you do that, you should look in the Initlaize event code for the problematic form.

If it happens randomly on multiple forms, you might run CodeCleaner on the workbook.

http://www.appspro.com/Utilities/CodeCleaner.htm

**TheNewGuy** · 08-23-2010, 02:58 PM

Thank you for your help. I will try both suggestions and post back.
Also, I have corrected the title. Sorry about that, I know better, I just wasn't thinking.Thanks again for your help.

**TheNewGuy** · 08-23-2010, 03:38 PM

So how do I run the code cleaner?

**shg** · 08-23-2010, 04:01 PM

Tools > Clean Project

**TheNewGuy** · 08-24-2010, 09:12 AM

OK....Thanks. I got that working, and checked the initialize script, it is were the error are happening, but still no luck.. It is giving me that same error at different places if I just comment out the offending lines, it continues on to a new place that gives the same run "time error 13 Type Mismatch" ... but the lines Highlighted by the VBA editor are:

If Workbooks(bookname).Sheets("Review").Range("B24").Value < 32 Or _
Workbooks(bookname).Sheets("Review").Range("G40").Value < 32 Then
S_Polishing_Type = True
Else: S_Polishing_Type = False
End If

as I said this line worked fine before... and there is no mismatch of variables, S_Polishing_Type is defined as a public variable and set to Boolean.
Thanks again for your help. This one has me stumped.

**romperstomper** · 08-24-2010, 09:14 AM

What is 'bookname' and are there error values in either of the 2 mentioned cells?

**TheNewGuy** · 08-24-2010, 09:20 AM

well bookname, is the name of the workbook....But you were right it was the cells, they were being loaded with N/A for some reason and that is what was causing the problem. Thank you very much for your help! I would have never figured that out, because originally it was stopping on a different line that gave me nothing to go on. Once I started looking over the Initialize event code real good I found it. Now why did this just start I wonder? Thanks again.

**Marcol** · 08-24-2010, 09:24 AM

Is it possible that there is an error in Range("B24"), or Range("G40") ?
For example "#DIV/0", this would return error 13

[EDIT]
Sorry romperstomper I didn't see your post, nor the reply.