Try this:
Sub test()
Sheets("YourSheetName").Select
Sheets("YourSheetName").Copy
ActiveWorkbook.SaveAs Filename:= _
"Yourpath" & "YourSheetName", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Regards,
Stefi
„Mike” ezt írta:
> I have a vba application I'm working on that creates numerous worksheets
> within a workbook. I need to save off a copy of specific worksheets from the
[quoted text clipped - 7 lines]
> Thanks,
> Mike
Mike - 19 Sep 2007 20:26 GMT
Thanks Stefi...that worked very well!
> Try this:
> Sub test()
[quoted text clipped - 22 lines]
> > Thanks,
> > Mike
Stefi - 20 Sep 2007 07:12 GMT
You are welcome! Thanks for the feedback!
Stefi
„Mike” ezt írta:
> Thanks Stefi...that worked very well!
>
[quoted text clipped - 24 lines]
> > > Thanks,
> > > Mike