Screen updating message

[ferocious12]

Hi All I am using following code to extract wks from different wbs with same name. I am still getting screen alert of update/don't update. Can you suggest the correction in the code to avoid the alert? Thanks

Sub CombineSheets()
    Dim sPath As String
    Dim sFname As String
    Dim wBk As Workbook
    Dim wSht As Variant

    Application.EnableEvents = False
    Application.ScreenUpdating = False
    sPath = InputBox("Enter a full path to workbooks")
    ChDir sPath
    sFname = InputBox("Enter a filename pattern")
    sFname = Dir(sPath & "\" & sFname & ".xl*", vbNormal)
    wSht = InputBox("Enter a worksheet name to copy")
    Do Until sFname = ""
        Set wBk = Workbooks.Open(sFname)
        Windows(sFname).Activate
        Sheets(wSht).Copy Before:=ThisWorkbook.Sheets(1)
        wBk.Close False
        sFname = Dir()
    Loop
    ActiveWorkbook.Save
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

 

[ferocious12]

anyone?

 

[mohadin]

Try To add This 2 line at the top an bottom

Application.DisplayAlerts = False
Application.DisplayAlerts = True

 

[vletm]

ferocious12
Do it matter for You or Your file - if update or not?
If it matters - then You should prevent it
If it don't matter - then You could hide those messages.

 

[ferocious12]

ferocious12
Do it matter for You or Your file - if update or not?
If it matters - then You should prevent it
If it don't matter - then You could hide those messages.

How can I hide them ?

 

[vletm]

ferocious12
... really - it don't matter?
a) by fixing Your code that it allows updating always
b) test to add three lines
After Sub -line On Error Resume Next
before Application.EnableEvents = False line Application.DisplayAlerts = False
before End Sub -line Application.DisplayAlerts = True
>>> and >>>
be ready, that You could miss many things = have a backup