SaveAs

[KeythStone]

Hello,


Trying to get this code right but I keep getting Object required error.


Sheets("card").Select
ActiveWorkbook.SaveAs Filename:= _
"\\thunderbolt\Departments\Operations\AR Management\Audit\Centricity Audits\Copy of Audits\Audit_" & Active.Range("B5") & "_" & Active.Range("B6") & Format(Date, "mm_dd_yyyy") & ".xlsx"


Where "B5" refers to a name in Sheets("card").Select, "B6" to a Database.

Thanks for your help,

Stay Smooth,
KeythStone

 

[VoG]

Try

ActiveWorkbook.SaveAs Filename:= _
"\\thunderbolt\Departments\Operations\AR Management\Audit\Centricity Audits\Copy of Audits\Audit_" & Sheets("card").Range("B5") & "_" & Sheets("card").Range("B6") & Format(Date, "mm_dd_yyyy") & ".xlsx"

 

[Greg Truby]

Hello,


Trying to get this code right but I keep getting Object required error.


Sheets("card").Select
ActiveWorkbook.SaveAs Filename:= _
"\\thunderbolt\Departments\Operations\AR Management\Audit\Centricity Audits\Copy of Audits\Audit_" & Active.Range("B5") & "_" & Active.Range("B6") & Format(Date, "mm_dd_yyyy") & ".xlsx"


Where "B5" refers to a name in Sheets("card").Select, "B6" to a Database.

Thanks for your help,

Stay Smooth,
KeythStone

B5's part should read

"\\thunderbolt\Departments\Operations\AR Management\Audit\Centricity Audits\Copy of Audits\Audit_" & worksheets("card").Range("B5") & "_" & Active.Range("B6") & Format(Date, "mm_dd_yyyy") & ".xlsx"

No idea on B6's part. You say "database" which makes no sense on the surface. Is it or isn't it a cell on a worksheet and if so, which sheet?

 

[KeythStone]

Thanks for the help,

It's true, my syntax was a bit sloppy. Once all cleaned it run perfectly.

Stay Smooth,
KeythStone