Hi,

I have problems finding out what`s wrong with my code. Could someone
help me solve my problem. I think is something to do with "Thisfile".
Thanks.


Sub Save_workbook()

Dim resultat As String
Dim sDate As String
Dim myPath As String
Dim Thisfile As String

sDate = ActiveSheet.Range("B1")

Thisfile = "FFS2 graf" + " " + sDate + " " + ".xls"

myPath = "[file path\]"

Application.DisplayAlerts = False

resultat = MsgBox("Vil du lagre" + " " + Thisfile, vbYesNoCancel)
If resultat = vbYes Then

'ChDrive "c"
'ChDir ""

ActiveWorkbook.SaveAs FileName:=Thisfile & myPath --' Get pop up
that`s something wrong here --

Application.DisplayAlerts = True


Else
If resultat = vbNo Then


End If
End If

End Sub


--
joa
------------------------------------------------------------------------
joa's Profile: http://www.excelforum.com/member.php...o&userid=32933
View this thread: http://www.excelforum.com/showthread...hreadid=527571