macro challenge

[msm205]

I am trying to save a file to a specific directory, C:, with a file name contained in the cell A1. I thought this code was a start, but it's not working. Please help.

Public Sub SaveAsA1()
ThisFile = Range("A1").Value
ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub

 

[Asala42]

WorkbookName = Worksheets("Sheet1").Range("A1").Text
ActiveWorkbook.SaveAs Filename:= _
"C:" & WorkbookName & ".xls "
This message was edited by Asala42 on 2002-11-11 21:49

 

[Jack in the UK]

FileName = Range("A1").Value
ThisWorkbook.SaveAs FileName:=FileName

HTH

JITUK

 

[apurk45]

Jack

Can I add the path to your formula ??

FileName = Range("A1").Value
ThisWorkbook.SaveAs FileName:=C:MT ReportsFileName

Would this work???

 

[Jack in the UK]

Hi

Sorry for the delay

add this C:MT ReportsFileName into A1 and run the code - does that work, ive not tested as its 2am in London now SLEEP i get up at 6am for work, as you know i live on this site

PM or email if you get suck
jackintheuk@hotmail.com

HTH

JITUK