Macro freezes excel workbook when executed via shortcut (button) but runs fine from VB

willow1985

Well-known Member
Joined
Jul 24, 2019
Messages
929
Office Version
  1. 365
Platform
  1. Windows
I have the below code. It used to work fine but suddenly when I run it it will start to run fine but at the end it will display the message box "update complete" but the entire workbook is frozen and grayed out/parts of text everywhere etc. However the macro works fine if I run it straight from VB: Macros, view Macro, Step into, Run OR Macros, view macro, Select the Macro, Run.
I have tried deleting the button and re-creating it but I still get the same problem. Any idea what could be causing the freezing / how to fix it?

Code:
Sub MWRefresh()'
' MWRefresh Macro
'
    Worksheets("Monthly Warranties").Unprotect Password:="SADIE"
    Worksheets("Report").Unprotect Password:="SADIE"
    Sheets("Monthly Warranties").Select
    Range("A13:H300").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Sheets("MW Data").Visible = True
 Sheets("Report").Select
    Cells.Select
    Selection.Copy
    Sheets("MW Data").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("B:B").Select
    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 3), TrailingMinusNumbers:=True
    Selection.NumberFormat = "[$-409]d-mmm-yy;@"
    Cells.Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Cells.EntireColumn.AutoFit
    Range("O2").Select
    Columns("C:D").Select
    Selection.Delete Shift:=xlToLeft
    Columns("F:F").Select
    Selection.Delete Shift:=xlToLeft
    Selection.Copy
    Columns("H:H").Select
    ActiveSheet.Paste
    Columns("F:F").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Columns("H:H").Select
    Selection.Delete Shift:=xlToLeft
    Range("J1").Select
    ActiveCell.FormulaR1C1 = "Month Match"
    Range("K1").Select
    ActiveCell.FormulaR1C1 = "Year Match"
    Range("J2").Select
LastRowColumnA = Cells(Rows.Count, 1).End(xlUp).Row
Range("J2:J" & LastRowColumnA).Formula = "=IFERROR(INDEX('Monthly Warranties'!R2C12,MATCH('Monthly Warranties'!R2C7,'MW Data'!RC[-2],FALSE)),""No"")"
LastRowColumnA = Cells(Rows.Count, 1).End(xlUp).Row
Range("K2:K" & LastRowColumnA).Formula = "=IFERROR(INDEX('Monthly Warranties'!R4C12,MATCH('Monthly Warranties'!R4C6,'MW Data'!RC[-2],FALSE)),""No"")"
    Cells.Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$P$127").AutoFilter Field:=11, Criteria1:="Yes"
    ActiveSheet.Range("$A$1:$P$127").AutoFilter Field:=10, Criteria1:="Yes"
    Columns("A:G").Select
    Range("G1").Activate
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets("Monthly Warranties").Select
    Range("B13").Select
    ActiveSheet.Paste
    
    




    
    
    
    Rows("13:13").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Range("A13").Select
    Application.CutCopyMode = False
    
    If Range("B13") <> "" Then
    Msg = "Update Complete"
    
    ActiveCell.FormulaR1C1 = "1"
If Cells(Rows.Count, "B").End(xlUp).Row > 13 Then
    Range("A13").AutoFill Destination:=Range("A13:A" & Cells(Rows.Count, "B").End(xlUp).Row), Type:=xlFillSeries
End If
    Range("A13").Select
    Sheets("MW Data").Select
    Cells.Select
    Selection.AutoFilter
    Selection.Delete Shift:=xlUp
    Range("A1").Select
  Sheets("MW Data").Visible = False
    Sheets("Monthly Warranties").Select
    Columns("A:A").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With
LastRowColumnA = Cells(Rows.Count, 1).End(xlUp).Row
Range("A13:H" & LastRowColumnA).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlHairline
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlHairline
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlHairline
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlHairline
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlHairline
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlHairline
        End With
    Columns("H:H").ColumnWidth = 31.57
    Range("H13:H300").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Rows("13:300").Select
    Rows("13:300").EntireRow.AutoFit
    Columns("D:D").EntireColumn.AutoFit
    Columns("C:C").EntireColumn.AutoFit
    Columns("B:B").EntireColumn.AutoFit
    Columns("A:A").EntireColumn.AutoFit
    Columns("E:E").EntireColumn.AutoFit
    
    End If
    
    Worksheets("Report").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True, Password:="SADIE"
Worksheets("Monthly Warranties").Protect Password:="SADIE"




    Range("A13").Select
    If Msg = "" Then Msg = "No Results"
MsgBox Msg




'
End Sub
 
Last edited:

Excel Facts

Did you know Excel offers Filter by Selection?
Add the AutoFilter icon to the Quick Access Toolbar. Select a cell containing Apple, click AutoFilter, and you will get all rows with Apple
Hello,

I'm not sure how to help you with it... However why would that be a problem? Macro runs ok, so a little freezing won't hurt. Especially if you have much data to process.
A tip:
With macros there is one thing most ppl do. They use this little piece of code:

At the beginning of macro:
Application.Screenupdating = False

At the end of macro:
Application.Screenupdating = True

Disabling screen update will speed up macro execution.

There is one more thing that could be done, but that depends on formulas: how many and how complicated. Formulas calculation mode can be set to manual when you run macro. That will also speed up code execution.

At the beginning of macro
Application.Calculation = xlCalculationManual

At the end:
Application.Calculation = xlCalculationAutomatic

(in this order:
Screen update off
Calculation manual

Your code

Calculation auto
Screen update on)
 
Last edited:
Upvote 0
Sorry I did not clarify, after the macro has run (via the button execution method only) the entire spreadsheet is frozen. You cannot click on any tabs, nothing. The screen isnt even showing the data, only a jumble of text and gray screen. The only thing you are able to do is close it.
 
Upvote 0
I tried the Screen update off/on and Calculation manual/auto and it worked! No more freezing workbook at the end :)

Thank you very much
 
Upvote 0

Forum statistics

Threads
1,223,898
Messages
6,175,272
Members
452,628
Latest member
dd2

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top