Run Time Error 13

[xcelnovice]

Hi, I inherited a macro & it has worked in previous months but this month I am getting the data type mismatch error. I've done some digging & understand that is telling me its an unrecognized data type but I wanted to post the code to see if anyone sees somenthin obvious...theres a ton more code to this macro so I doubt it will be solvable but it was worth a shot...

Sub Step_2()</SPAN>

Dim JEMonth As Byte</SPAN>
Dim JEYear As Integer</SPAN>

JEMonth = Sheets("MGR Data").Cells(2, 2).Value 'This is highlighted in yellow & where I get the error'</SPAN></SPAN>
JEYear = Sheets("MGR Data").Cells(2, 1).Value</SPAN>

Dim dtmDate As Date</SPAN>
Dim JEDate As Date</SPAN>
dtmDate = JEMonth & "/1/" & JEYear</SPAN>

JEDate = DateSerial(Year(dtmDate), _</SPAN>
Month(dtmDate) + 1, 0)</SPAN>
UserForm1.JD.Value = JEDate</SPAN>

UserForm1.Show</SPAN>

End Sub


& to see if i understand what I am seeing...first to lines declare variable. 2nd 2 lines are saying the variables are the MGR Data sheet w/ in the workbook, from A1 go down 2 cells & Over 2 cells & return that value (which is 7000-01)

And any code after this is a mystery to me at this point...Thanks</SPAN>

 

[NeonRedSharpie]

JEMonth can only hold values between 0 and 255. What is in B2?

 

[xcelnovice]

[TABLE="width: 68"]
<TBODY>[TR]
[TD]</SPAN>7000-01 any recomendations



Thanks
[/TD]
[/TR]
</TBODY>[/TABLE]

 

[NeonRedSharpie]

Well...I don't know what you're trying to get out of that but I assume it's the "01"?

[COLOR=#333333]Dim JEMonth As Variant[/COLOR]
[COLOR=#333333]Dim JEYear As Integer[/COLOR]

[B]JEMonth = right(Sheets("MGR Data").Cells(2, 2).Value,2) 'This is highlighted in yellow & where I get the error' [/B]

 

[xcelnovice]

Great thank you! & i figured this would be a challenge. It did get me past that line of code...Am I correct in assuming that if I change the Value,2 to Value,7 it would return the entire #. Thanks so much for the help!

 

[NeonRedSharpie]

If you want to return the entire number you don't need the LEFT function at all. But, that will cause an error with this line of code:

[COLOR=#333333]dtmDate = JEMonth & "/1/" & JEYear[/COLOR]

Because 7000-01/1/2014 is not a valid date. And you have dtmDate as Date format.