Saving a work book as values and format only
 

workbook Hi all
I will be finishing a project Soon and I would like to save as Values and
Format only for the whole work book. This would allow me strip out all the
data on the original workbook in readyness to start my New project. Is this
possible?

thanks for Looking
Stew

Saving a work book as values and format only
 

This macro should cause all cells values to become static.

Sub BecomeStatic()
For Each ws In ActiveWorkbook.Worksheets
On Error Resume Next
ws.UsedRange.Value = ws.UsedRange.Value
Next ws
End Sub
--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*


"stew" wrote:

workbook Hi all
I will be finishing a project Soon and I would like to save as Values and
Format only for the whole work book. This would allow me strip out all the
data on the original workbook in readyness to start my New project. Is this
possible?

thanks for Looking
Stew

Saving a work book as values and format only
 

Would I place this macro in every worksheet?

Thanks for your help

Stew

"Luke M" wrote:

This macro should cause all cells values to become static.

Sub BecomeStatic()
For Each ws In ActiveWorkbook.Worksheets
On Error Resume Next
ws.UsedRange.Value = ws.UsedRange.Value
Next ws
End Sub
--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*


"stew" wrote:

workbook Hi all
I will be finishing a project Soon and I would like to save as Values and
Format only for the whole work book. This would allow me strip out all the
data on the original workbook in readyness to start my New project. Is this
possible?

thanks for Looking
Stew

Saving a work book as values and format only
 

No, you can place it in a regular module. It is setup to look through every
ws on it's own.
--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*


"stew" wrote:

Would I place this macro in every worksheet?

Thanks for your help

Stew

"Luke M" wrote:

This macro should cause all cells values to become static.

Sub BecomeStatic()
For Each ws In ActiveWorkbook.Worksheets
On Error Resume Next
ws.UsedRange.Value = ws.UsedRange.Value
Next ws
End Sub
--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*


"stew" wrote:

workbook Hi all
I will be finishing a project Soon and I would like to save as Values and
Format only for the whole work book. This would allow me strip out all the
data on the original workbook in readyness to start my New project. Is this
possible?

thanks for Looking
Stew