VBA to close workbook only closes a partial part of it

[ipbr21054]

Afternoon,

Within my code i am using this line of code to close the workbook.

    End With
    Sheet8.Range("A8") = "BAR CODE 1"
    Sheet8.Range("Q8") = "BAR CODE 1"
    Sheet8.Range("A12") = "BAR CODE 2"
    Sheet8.Range("Q12") = "BAR CODE 2"
    Sheet8.Range("A16") = "BAR CODE 3"
    Sheet8.Range("Q16") = "BAR CODE 3"
    Sheet8.Range("A20") = "BAR CODE 4"
    Sheet8.Range("Q20") = "BAR CODE 4"

    ActiveWorkbook.Save
    Application.ScreenUpdating = True
    ActiveWorkbook.Close True
    
End Sub

The issue is that it doesnt close ALL the workbook so i can then see example my desktop.
It say only closes a partial part of it "not explained enough"

I am able to still see The Ribbon thus still having to click the x in the top right corner.

See screen shot of what happens when code is run.

 

[Jaafar Tribak]

what if you replace
ActiveWorkbook.Close True
with
Application.Quit

 

[ipbr21054]

That then just gives me another RTE and another line of code is selected

 

[Jaafar Tribak]

That then just gives me another RTE and another line of code is selected

Sorry, what does RTE mean ?

 

[ipbr21054]

Run Time Error

 

[Jaafar Tribak]

Run Time Error

on which line does the error occur ?

 

[ipbr21054]

Here

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, c As Range
Set rng = Intersect(Target, Range("P6:U6"))
If Not rng Is Nothing Then
    Application.EnableEvents = False
    For Each c In rng
        If Not c.HasFormula Then c.Value = UCase(c.Value)
    Next c
    Application.EnableEvents = True
End If
End Sub

 

[Jaafar Tribak]

I am afraid, I don't see any relation between your intial code and your last code.

Do you have only one workbook open or more when trying to close the excel application ?

 

[ipbr21054]

On the one open

Thanks anyway