DKY,

i think my problem was to add the new sheet (which to be printed )
to the end i.e to the right of list, so that's what i did

dim Nsht as worksheet
if Nsht is Nothing Then
worksheets.add after:= Worksheets(Worksheets.count)
end if

.....The rest of coding for printing just worked fine
thanks DKY, any further thoughts are welcome


"DKY" wrote:


well, I know nothing about VBA, but I did notice that "cout" needs an n
and "prinOut" needs a t. Also, should there be a space between Work
and Sheets? I'm just asking, like I said, I don't know much about this
stuff. So maybe make it look like this?

activeWorkbook.WorkSheets.Item(activeWorkbook.Work Sheets.Count).PrintOut


--
DKY
------------------------------------------------------------------------
DKY's Profile: http://www.excelforum.com/member.php...o&userid=14515
View this thread: http://www.excelforum.com/showthread...hreadid=275707