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