save as filename

V

Vato Loco

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveWorkbook.SaveAs FileName:=ActiveSheet.Range("o6")
End Sub

I am using the above code to save on a click. However, I am pulling th
file from a toolbar on Attachmate EXTRA!. I have to open excel vi
c:\microsoft excel, but I want it to save to J:\agency.

No matter what I try, it keeps wanting to save to C:\My Documents.

Can anyone show me how to have this save to J:\agency?

Thanks in advance. Vat
 
K

kkknie

Would this work?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveWorkbook.SaveAs FileName:="J:\agency\" & ActiveSheet.Range("o6")
End Sub
 
J

jeff

Hi,

I haven't tried this, but you might try:

ActiveWorkbook.SaveAs FileName:="J:\agency\" &
ActiveSheet.Range("o6")


jeff
 
V

Vato Loco

That works great!! Thank you so much. You save me lots of stress. Have
super day!!

Vat
 
Top