Jump to content

Welcome to Geeks to Go - Register now for FREE

Geeks To Go is a helpful hub, where thousands of volunteer geeks quickly serve friendly answers and support. Check out the forums and get free advice from the experts. Register now to gain access to all of our features, it's FREE and only takes one minute. Once registered and logged in, you will be able to create topics, post replies to existing threads, give reputation to your fellow members, get your own private messenger, post status updates, manage your profile and so much more.

Create Account How it Works
Photo

hi simple macro help


  • Please log in to reply

#1
nickface

nickface

    New Member

  • Member
  • Pip
  • 1 posts
Hey all, i heard this was a well respected forum with good feedback. I need a little guidance...
I have a master file 'Copy and Save.xlsm'. It contains 3 tabs: FR, GM, and CH.

I want to save a copy of each tab to a new Excel file and name the file as Tab name - Master file name, e.g. FR - Copy and Save. xls. The master file is a Macro enabled Excel 2003 format and The new file need to be plain Excel 2003-2007 format rather than a Macro enabled format..(It should be ok to change the master file to Macro enabled format but the new files have to be Excel 2003 format...)

My Macro is able to create a new workbook, save and name it but can't move on to the next tab...
Sub copy_save()
'
' Move and make a copy of each tab from the master file and save as a new workbook. Name it tab name - master file name
'
'
ActiveSheet.Select
pName = ActiveWorkbook.Path ' the path of the currently active file, the master file
wbName = ActiveWorkbook.Name ' the file name of the currently active master file
shtName = ActiveSheet.Name ' the name of the currently selected worksheet, the master file

For i = 1 To Worksheets.Count

ActiveSheet.Select
ActiveSheet.Copy
Tabname = pName & "\" & shtName & " - " & wbName 'Name the new workbook as: Tab name - master file name

Dim Newshtname As String
Newshtname = Tabname

ActiveWorkbook.SaveAs Filename:= _
Newshtname, FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False


Sheet(shtName).Activate ' want to Return to master file and move and save the next tab. This doesn't work however.

Range("A1").Select

ActiveSheet.Next.Select 'move to next tab

Next i

End

End Sub
  • 0

Advertisements







Similar Topics

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

As Featured On:

Microsoft Yahoo BBC MSN PC Magazine Washington Post HP