Flickering when saving workbook under a different name

[royhern]

How can i make the workbook stop flickering when i save under a different name?

This is the code i am using:

Sub SaveWorkbookBackup()
Application.ScreenUpdating = False
Dim awb As Workbook, BackupFileName As String, i As Integer, OK As Boolean
If TypeName(ActiveWorkbook) = "Nothing" Then Exit Sub
Set awb = ActiveWorkbook
If awb.Path = "" Then
Application.Dialogs(xlDialogSaveAs).Show
Else
BackupFileName = awb.FullName
i = 0
While InStr(i + 1, BackupFileName, ".") > 0
i = InStr(i + 1, BackupFileName, ".")
Wend
If i > 0 Then BackupFileName = Left(BackupFileName, i - 1)
BackupFileName = BackupFileName & ".bak"
OK = False
On Error GoTo NotAbleToSave
With awb
Application.StatusBar = "Saving this workbook..."
.Save
Application.StatusBar = "Saving this workbook backup..."
.SaveCopyAs BackupFileName
OK = True
End With
End If
NotAbleToSave:
Set awb = Nothing
Application.StatusBar = False
If Not OK Then
MsgBox "Backup Copy Not Saved!", vbExclamation, ThisWorkbook.Name
End If
Application.ScreenUpdating = True
End Sub

 

[Jack in the UK]

Hi
Ive tested the code all ok no filckers FULL Xp windows and Office

Is it just this sheets or just this code all other sheets code OK

Jack

 

[ylijohe]

To stop screen fickering while sub running, add this in the beginning of the sub:

Application.ScreenUpdating = False

it will turn off screen update, and return it back when sub is over.
This message was edited by ylijohe on 2002-10-07 02:15