Here is PART of a script someone did for me

Sub coloror()
Dim myrar As Range
Dim colchoice As Integer
Set myrar = Application.InputBox("What range", rangetocheck, , , , , , 8)
For Each cell In myrar

When I run the script, and it does work well, I am prompted to put in the
RANGE for the script to look at before it proceeds. I would like to enter a
fixed area, such as A4:D12. How would I rewrite the ("What range",
rangetocheck, , , , , , 8) section to insert this fixed range?

Thanks