Save a selected range as script

sambuddy

New Member
Joined
Oct 16, 2019
Messages
2
it is obvious I do not know what I am doing. What I am trying to accomplish is by pressing the button, Range A1:A12 on sheet called DATA_1 which I set it to be as "ssheet2" be saved on desktop as DATA_1.scr

but executing this macro will change my workbook name to DATA_1. Could anyone please help?

Also how can I ask the saved script file to be on any user desktop and not particular to mine, so I could share the excel file to different users and by executing the macro, the DATA_1.scr generates on their desktop. is there a generic way to formulate that?

Also is there a way to overwrite if there are existing files with the same name on anyone`s desktop without asking any question - if exists just overwrite.
thanks

Private Sub bt2_Click() Set ssheet2 = ThisWorkbook.Sheets("DATA_1")
Range("A1:A12").Select
ssheet2.SaveAs Filename:="C:\Users\sambuddy\Desktop\DATA_1.scr", _
FileFormat:=xlUnicodeText, CreateBackup:=False


End Sub
 

Forum statistics

Threads
1,078,541
Messages
5,341,061
Members
399,414
Latest member
EMW2159

Some videos you may like

This Week's Hot Topics

  • Problem with Radio Button's format control
    I am creating an employee evaluation template (a sample is below) Column A is the category Column B, C D, E and F will be ratings (unacceptable...
  • Last Display on userform to a Listbox
    [CODE=vba] lstdisplay.ColumnCount = 15 lstdisplay.RowSource = "A1:O600000" [/CODE] So when i do this it Displays everything on the sheet i am...
  • Rename and move files to a new location
    Dear all, I have an excel file with the following information. The actual file name is at column A but i want to rename it using the following...
  • Help with True/False Formula
    Hello! Am stumped how to fix this formula, in which my result returns 'True', but it should return False. =IF(AG2=True...
  • Clear extra characters from a provided range of cells
    Dear All, I have following code which gives me desired output to remove extra characters from a provided range. But it takes too much time when...
  • Help with Current and highest streaks
    Hi there, I've just joined the forum and this is my first post. I've already spent quite a bit of time searching the net and this forum for a...
Top