Save file as????????????????????????????

[Dejan]

Need to save workbook as:
H16 = Number of document
A4 = Type of document
O2 = Date of document

I've tried like this but it doesn't work.

ActiveWorkbook.SaveAs Filename:="C:Pekara20021 & Range("H16").Value & Range("A4").Value & Format(Range("O2"), "dd.mm.yyyy")


Please help me
Thnx

 

[Richie(UK)]

Hi Dejan,

How about something along these lines?<pre>Sub SaveAsSub()
Dim MyName As String

MyName = "C:My Documents" & Range("H16").Value & _
Range("A4").Value & Format(Range("O2"), "dd.mm.yyyy") & ".xls"

MsgBox "About to save as:" & vbLf & MyName

ActiveWorkbook.SaveAs FileName:=MyName

End Sub</pre>
I changed the initial part to "My Documents" just for testing. Swap it back to your chosen directory.

HTH

PS. When posting to the board, rather than saying "I've tried like this but it doesn't work." try to clarify the nature of the problem. Does it produce an error message (if so, what is it)? Does it crash Excel? :wink:

EDIT: Oops - forgot my closing pre statement after the code. Doh!

_________________<font color="blue"> «««<font color="red">¤<font color="blue"><font size=+1>Richie</font><font color="red">¤<font color="blue"> »»»</font>

</gif>
This message was edited by Richie(UK) on 2002-10-19 11:20