allison
02-19-2008, 02:19 PM
I've gotten this to work, but it seems to take longer than I expected to execute. Is there something that I can do to make it run quicker?
Sub Save()
Dim newFile As String
Dim faName As String
Dim fbName As String
Application.ScreenUpdating = False
faName = Range("H2").Value
fbName = Range("H4").Value
newFile = Format$(Date, "YYYYMMDD") & " " & faName & " " & fbName
ChDir "E:\"
ActiveWorkbook.SaveAs Filename:=newFile
MsgBox ("Review logged as " & newFile)
Application.ScreenUpdating = True
End Sub
Sub Save()
Dim newFile As String
Dim faName As String
Dim fbName As String
Application.ScreenUpdating = False
faName = Range("H2").Value
fbName = Range("H4").Value
newFile = Format$(Date, "YYYYMMDD") & " " & faName & " " & fbName
ChDir "E:\"
ActiveWorkbook.SaveAs Filename:=newFile
MsgBox ("Review logged as " & newFile)
Application.ScreenUpdating = True
End Sub