On Feb 13, 12:54 pm, "Tom Ogilvy" wrote:
Looks like the copy line got omitted. It is still needed - however, see my
response to your next question.

--
Regards,
Tom Ogilvy

"Tom Ogilvy" wrote in message

...



Private Sub Workbook.Open()
activesheet.usedrange.formula = activesheet.usedrange.value
Activeworkbook.SaveAs "C:\Archive\" & format(date-1,"yyyymmdd") & ".xls"
ActiveWorkbook.SendMail "
ActiveWorkbook.Close SaveChanges:=False
End Sub

in the Thisworkbook module.

--
Regards,
Tom Ogilvy

"Tom Ogilvy" wrote in message
...
create a new sheet lacking formulas but containing the values and
formatting

Sub MakeRecord()
activesheet.copy
activesheet.usedrange.formula = activesheet.usedrange.value
Activeworkbook.SaveAs "C:\Archive\" & format(date-1,"yyyymmdd") & ".xls"
ActiveWorkbook.Close SaveChanges:=False
End Sub

--
Regards,
Tom Ogilvy

"S Davis" wrote in message
roups.com...
Hello all,

I have a tool that essentially takes a snapshot of the current status
of the company. This is run every morning to encompass the entire
previous day's activities.

The next step in progression with this tool is to send a summary out
to all managers / VP's, etc. I'd love to come up with something in VBA
to make this easier. Currently this already logs all data into access
for historical tracking over time, but I would prefer to come up with
a way to either take a screenshot, create a pdf of the sheet, or
create a new sheet lacking formulas but containing the values and
formatting.

This is a long shot, but can it be done?- Hide quoted text -

- Show quoted text -

This is great. Absolutely great. Im just mucking around trying to get
it to mail more than one recipient but that shouldnt be too hard. As
it stands, it works perfectly, just as I wanted. Thank you!