Rashid,

first checkout that the code doesnot contain illegal characters:
(leftovers from copy paste perhaps)

set
option explicit

at the top of your module, then try to compile the code.

from your post i quote the lines that look like they contain
"leftovers". Note the "¬" character!


StartVal = CLng(Application.InputBox(Prom¬pt:="Start with", _
Default:=1, Type:=1))

EndVal = CLng(Application.InputBox(Prom¬pt:="End with", _
Default:=StartVal + 1, Type:=1))

wks.Range("PcDetailsPrint").Pr¬intOut preview:=True

if you still have problems tell us on which line it stops.

--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam