F8 Has Stopped working for me

[Doug Mac]

All of the Active X codes seem to work with the "step through" (F8) but all of the other vba code will not allow me to use that function?? I have looked through google and the best I can come up with is there might be something running in the background. Please help me - the problem seems to be in all of my other workbooks as well.
I have attached the most recent code i have been working on below.

Option Explicit

Private Sub CommandButton1_Click()
ActiveSheet.PageSetup.PrintArea = "$B$2:$M$86"
Application.Dialogs(xlDialogPrint).Show 'Printer manually select.("Adobe PDF")

'End SubPrivate Sub Worksheet_Change(ByVal Target As Range)
'Dim KeyCells As Range

'Set KeyCells = Range("E23")
'If Not Application.Intersect(KeyCells, Range(Target.Address)) _
'Is Nothing Then
'End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

Dim KeyCells As Range

' The variable KeyCells contains the cells that will
' cause an alert when they are changed.

Set KeyCells = Range("F48")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then

' Place your code here.
Application.EnableCancelKey = xlDisabled
End If


5 Application.ScreenUpdating = False
'Range("E27:G27").ClearContents

If ActiveSheet.Range("F48") = "MSTC-16" Then GoTo 10
If ActiveSheet.Range("F48") = 2 Then GoTo 20

'PUTS Single Stud Elevation Diagram In
10 If ActiveSheet.Range("F48") = "MSTC-16" Then
ActiveSheet.Shapes("Group New").Delete
ActiveSheet.Shapes("Group 4156").Select
Selection.Copy
Range("C52").Select
Application.DisplayAlerts = False
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Name = "Group New"
End If

'PUTS 2 Studs Elevation Diagram In

20 If ActiveSheet.Range("E19") = "2" Then
ActiveSheet.Shapes("Group New").Delete
ActiveSheet.Shapes("Group 1039").Select
Selection.Copy
Range("C33").Select
Application.DisplayAlerts = False
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Name = "Group New"

End If

Application.ScreenUpdating = True
End Sub

 

[MARK858]

Put the word Stop where it is below in the code, click the button.
Does Sop get highlighted? if yes does it allow you to use F8 through the rest of the code? if does not let you step through with F8, does it step through if you go to the Debug window and repeatedly click Step Into

Private Sub CommandButton1_Click()
Stop
ActiveSheet.PageSetup.PrintArea = "$B$2:$M$86"

 

[Doug Mac]

Thanks for attempting to fix
I added the "Stop" on the 2nd line in the Privat Sub CammandButton_Click()
It lit up in a blue colour text
However, there was no change with the F8 key operation.
I completed several tries with the Step Through in the Debug menu with no successful outcome.

 

[Doug Mac]

Wall Hinge Strap (Restored) 11-09-2023 16.55.xlsm
	P
21
Calculator

I'm new at this so not sure if this is what you might be looking for in the "mini sheets"

 

[MARK858]

You only selected a single cell, you need to select all the cells you wish to post before you click the Mini -sheet button.
Having said that I don't know what a mini sheet will show in relation to your use of F8

I completed several tries with the Step Through in the Debug menu with no successful outcome.

I'm not clear on what you are saying here. Are you saying it didn't step through when you were using the Step Into in the Debug menu or it did Step through but you didn't get the result that you wanted on the sheet?

 

[Doug Mac]

When I tried/try to use the Step Into in the debug menu (or just hitting the F8 key for that matter) all I get is the computer dings once - nothing happens at all. When I try the F8 key in the print routine it runs fine. I can step through the print routine (at the top). I cannot run the step through on any of the other excel apps on my computer - and i have several of them. I'm quite concerned here.