Hey Bob I mean Don

H

Henry

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!
 
D

David McRitchie

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.
 
Top