Macro used to work and now does not

Hi. I found a Macro on bitesizebio that Mr. Hengen was nice enough to provide.

I was using it to make a heat map and it was working fine, then one day,
it stopped working and I received the following error: Variable Not Defined (referring to 'rangetocheck')
I tried defining 'rangetocheck' as a range but then I get an error code: Variable not defined (referring to 'cell' in the 'For Each cell In Myrange' line)

Can any one tell me what happened to this macro? And why it worked one day but not the next?

Sub heatmap()
Dim myrange As Range
Dim colchoice As Integer
Set myrange = Application.InputBox("Select a range of cells", rangetocheck, , , , , , 8)
For Each cell In myrange
Select Case cell.Value
Case Is >= 8
   colchoice = 1
   fontchoice = 2
Case Is >= 7
   colchoice = 3
End Select
cell.Interior.ColorIndex = colchoice
cell.Font.ColorIndex = fontchoice
fontchoice = 1
Next
End Sub

Thanks so much

Thanks Solus.

I think it was supposed to be the input box variable. So, I defined that as a string but now I'm getting the same error message but for 'Cell.' I've never had to define Cell as a variable in VBA. Any suggestions for that?

I did not get an error?
May be try to get rid of the inbox, instead choose the selection manually

Sub heatmap()
Dim myrange As Range, colchoice As Integer

For Each cell In Selection
Select Case cell.Value
Case Is >= 8
   colchoice = 1
   fontchoice = 2
Case Is >= 7
   colchoice = 3
End Select
cell.Interior.ColorIndex = colchoice
cell.Font.ColorIndex = fontchoice
fontchoice = 1
Next
End Sub

Hey AB33.

Maybe my excel's broken. I'm running this, I even removed the text box section, and I'm still getting an error that 'Cell' is not defined.

Please refer to post #5

"I've never had to define Cell as a variable in VBA. Any suggestions for that? "
If you have option explicit at the top of your code and you use a variable which is not defined, you will get the error you are getting.

Hey. I copied this macro from its module to the code window in 'this workbook' and it worked.
I think the macro not working was just excel malfunctioning.

thanks for all the help.