Excel VBA code not running using F5 only F8

Question

The VBA code below runs when the key F8 is pressed, but not when the key F5. It simply doesn't run; it makes no errors of any kind.

Dim LastColumn As Long
Set ws = ActiveSheet
Dim LastRow As Long
LastRow = 0
LastColumn = 0

LastRow = ws.Range("c" & Rows.Count).End(xlUp).Row
LastColumn = ws.Cells(11, ws.Columns.Count).End(xlToLeft).Column
Range(Cells(12, 1), Cells(LastRow, LastColumn)).Select
Selection.SpecialCells(xlCellTypeVisible).Interior.ColorIndex = -4142
delay 60
Range("A1").Select

I tried to delay the code for 60 seconds, maybe it runs too fast but doesn't work either. any help?

Answer 1

Change your code like this:

Dim LastColumn As Long
Set ws = ActiveSheet ' you should change this to Worksheets("YourSheetName") to be safer
Dim LastRow As Long
LastRow = 0
LastColumn = 0
With ws
    LastRow = .Range("c" & .Rows.Count).End(xlUp).Row
    LastColumn = .Cells(11, .Columns.Count).End(xlToLeft).Column
    .Range(.Cells(12, 1), .Cells(LastRow, LastColumn)).SpecialCells(xlCellTypeVisible).Interior.ColorIndex = -4142
    delay 60
    .Range("A1").Select
End With