Variable VB to assign new sheet name

K

Kevin M

Hi all, TIA..

I have this recorded:

Sub Macro6()
'
' Macro6 Macro
' Macro recorded 6/16/2005 by Chuck Marple
'
' Keyboard Shortcut: Ctrl+Shift+Z
'
Selection.Copy
ChDir "R:\Equipment Info\Spec Sheet Templates"
Workbooks.Open Filename:= _
"R:\Equipment Info\Spec Sheet Templates\A30-1670 (S.V.D.
Template).xls"
ActiveSheet.Paste
Application.CutCopyMode = False
ChDir _
"L:\#PRL EQUIPMENT SYSTEM\EQUIPMENT INFO\A30-TUBULARS\A30-1670
(Rotary Valve-safety-drilling)\2838"
ActiveWorkbook.SaveAs Filename:= _
"L:\#PRL EQUIPMENT SYSTEM\EQUIPMENT INFO\A30-TUBULARS\A30-1670
(Rotary Valve-safety-drilling)\2838\2838.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

I'd like to assign a sheetname based on a variable (cell A6) to assign as
the save name instead of the name it's saving over, any insights would be
much appreciated.

Thanks,

Kevin M
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

match sheet names 1
How do assign a name to a remote workbook ? 3
Assign value to a variable name 2
Usin OpenDiagBox to set ActiveWorkbook Name 3
macro to save a file 2
Refering to new sheet name 3
is there a way to change flname = ActiveDocument.Name to select thedefault name in the 'save as' tex 0
Assign a worksheet name to a variable 3

Top