Thanks so much Ron for your help. Please understand however that as fa
as programing goes I'm just a hack now. Just good at copying an
slightly modifiing code.
Bellow is the part of my code that saves the file. I honestly do no
know how to modifiy using your additional. Thanks so much again fo
your contuned help.
Sh.Copy
ActiveSheet.Copy
Cells.Copy
Cells.PasteSpecial xlPasteValues
Cells(1).Select
Application.CutCopyMode = False
------------------------------------------------------
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
strdate = Format(Now, "mm-dd-yy")
Application.DisplayAlerts = False
Dim wb As Workbook
Sheets(Array("OCC")).Copy
Set wb = ActiveWorkbook
wb.SaveAs Filename:="C:\The DK Global Group\Excel\Ori
Billing\Occ\OCC Fills " & Format(Date, "mm-dd-yy") & ".xls"
wb.Close False
Application.DisplayAlerts = Tru
--
sungen9
-----------------------------------------------------------------------
sungen99's Profile:
http://www.excelforum.com/member.php...nfo&userid=914
View this thread:
http://www.excelforum.com/showthread.php?threadid=26901