Thread: Simplify save code in microsoft.public.excel.programming

  Thanks for your quick response Jacob. I first got the end if block error. I changed spelling for the first if. I now get syntax error. Thanks -- By persisting in your path, though you forfeit the little, you gain the great. "Jacob Skaria" wrote: > Try the below > > Private Sub Save_DAILY_REPORT() > ActiveWorkbook.SaveAs Filename:="C:\Daily Report\" & _ >...

  Did you copy/paste the code? or modified. If this post helps click Yes --------------- Jacob Skaria "DavidH56" wrote: > Thanks for your quick response Jacob. I first got the end if block error. I > changed spelling for the first if. I now get syntax error. > > Thanks > -- > By persisting in your path, though you forfeit the little, you gain the > great. >...

  DavidH56, Try something along the lines of what is listed below. (The code is untested). Best, Matthew Herbert Dim strFName As String Select Case Weekday(Now()) Case 1, 7 strFName = "C:\Daily Report\Archives\DAILY REPORT" & Format(Date, "dd-mmm-yyyy") & ".xls" Case 2 To 6 strFName = "C:\Daily Report\" & Format(Date,...

  Just a note for the OP edification. IIf() is a good VBA syntax. Returns one of two parts, depending on the evaluation of an expression. Syntax IIf(expr, truepart, falsepart) "DavidH56" <DavidH56@discussions.microsoft.com> wrote in message news:874AF160-9411-492F-A526-CD3574226CC8@microsoft.com... > Thanks for your quick response Jacob. I first got the end if block error. > I >...