steve smith
asked on
Visual Basic Classic
Hi All,
I have received great help to get this far with saving a copy of an xlsm sheet to my desktop. I need for all users to save to their own desktop. The sheet is part of an ordering workbook. This is what I have so far, but it just saves to my desktop.
I have received great help to get this far with saving a copy of an xlsm sheet to my desktop. I need for all users to save to their own desktop. The sheet is part of an ordering workbook. This is what I have so far, but it just saves to my desktop.
Sub SaveToDesktop()
Dim ThisFile As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveSheet.Copy
ThisFile = Range("E12").Value & "(" & Range("L12").Value & ")"
ActiveSheet.SaveAs Filename:="C:\Users\stevesmith\Desktop\" & ThisFile, FileFormat:=52
Application.DisplayAlerts = True
Application.ScreenUpdating = True
ActiveWorkbook.Close
End Sub
Module1.bas
ASKER
Thank You Roy_Cox,
I really appreciate your help and taking time to do so:)
Steve
I really appreciate your help and taking time to do so:)
Steve
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Thank you Roy_Cox
Open in new window