Hey Bob I mean Don
 

Thanks for your help yesterday..

but where do I put your code in mine

Mine....

ScreenUpdating = Fals
Worksheets("Table").Cop
ActiveWorkbook.SaveAs "\\Dfs01\shares\Groupdirs\0535\Table" & Range("B56") & ".xls
ActiveWorkbook.SaveAs "g:\data\table" & Range("B56") & ".xls
ActiveWorkbook.SendMail Recipients:=Array("My distribution list"
ActiveSheet.Cop
ActiveWorkbook.SaveAs "\\Dfs01\shares\Groupdirs\0535\Table" & Range("B56")" & Range("B56") & ".csv", FileFormat:=xlCS
ActiveWorkbook.Close SaveChanges:=Fals
ActiveWorkbook.Close SaveChanges:=Fals
ScreenUpdating = Tru

End Su


Yours....

With ActiveSheet.UsedRang
...Value = .Valu
End Wit

Thanks!

Hey Bob I mean Don
 

Dangerous code without knowing exactly what you want to do.
I think CopyAs instead of SaveAs will keep you in the current
workbook and worksheet. but code you are asking about
applies only to the current worksheet.

It looks like you are probably continuing your own thread,
if that is the case it is best not to change threads so everyone
knows what was previously said, and the Bob or Don would
see your reply under their post.
--
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"Henry" wrote in message ...
Thanks for your help yesterday...

but where do I put your code in mine?

Mine.....

ScreenUpdating = False
Worksheets("Table").Copy
ActiveWorkbook.SaveAs "\\Dfs01\shares\Groupdirs\0535\Table" & Range("B56") & ".xls"
ActiveWorkbook.SaveAs "g:\data\table" & Range("B56") & ".xls"
ActiveWorkbook.SendMail Recipients:=Array("My distribution list")
ActiveSheet.Copy
ActiveWorkbook.SaveAs "\\Dfs01\shares\Groupdirs\0535\Table" & Range("B56")" & Range("B56") & ".csv", FileFormat:=xlCSV
ActiveWorkbook.Close SaveChanges:=False
ActiveWorkbook.Close SaveChanges:=False
ScreenUpdating = True

End Sub


Yours.....

With ActiveSheet.UsedRange
..Value = .Value
End With


Thanks!