Ok i got this far,by using the search function :)

but it still doesn't prompt to update the database


Sub Macro2()
Dim popo As String
popo = Worksheets("Report").Range("v32").Value
Dim whoa As String
whoa = Worksheets("Report").Range("v7").Value
Worksheets("Print").Copy
ActiveWorkbook.SaveAs popo & "\" & "ETR_" & whoa & ".xls"
ActiveWorkbook.Close Savechanges:=True

End Su

--
Dan Hulgi
-----------------------------------------------------------------------
Dan Hulgin's Profile: http://www.excelforum.com/member.php...fo&userid=1574
View this thread: http://www.excelforum.com/showthread.php?threadid=27256