Save sheet copy with cell value name using a macro.

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Leo Rod - 07 Aug 2007 22:21 GMT

Good afternoon All,

I need a VB statement to save a copy of the sheet i'm using (same were the
macro is executed) with a cell value (EG cell "B2") of the workbook I'm
using into a predefined path (EG "C:\").

If anybody can help me with this I'll be very glad.

Leo.

Reply to this Message

Gord Dibben - 07 Aug 2007 22:43 GMT

You want to save a sheet as a workbook with a name of the value in Range("B2")
of the sheet?

Sub Make_New_Book()
Dim w As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="C:\MyFolder\" & Range("B2").Value
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Gord Dibben MS Excel MVP

>Good afternoon All,
>
[quoted text clipped - 5 lines]
>
>Leo.

Reply to this Message

Rate this thread: