To be honest or plain blunt I can not see your problem.
Google for Excel and Book or go to some computer dedicated site like
www.comcol.nl (dutch site)
and buy a book.

to merge macro's copy the first macro without the sub... and end sub
line
and past it just befor or after the code in the function or if you want
to run the functioon within the sub
place

dim Str as String

Str = Sheetnam ( YourRange,[Yourreference])

at the start or end of the sub where Yourrange is a range an
Yourreference = True if you want it to do something


--
Dnereb


------------------------------------------------------------------------
Dnereb's Profile: http://www.excelforum.com/member.php...o&userid=26182
View this thread: http://www.excelforum.com/showthread...hreadid=401792