status bar not showing the message

[bezbid]

I have this code,

Private Sub Add_Quotes()

    Dim StkQ As Long
      On Error Resume Next
      StkQ = Worksheets(2).Range("T1").Value
      Worksheets(2).Range("T1").Value = Worksheets(2).Range("U1").Value
      
    With Application
    .CutCopyMode = False
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
    .DisplayStatusBar = True
    .StatusBar = "* " & StkQ & " *"
    .EnableEvents = True
    End With

End Sub

the result on the statusbar is * 0 *, where is wrong with my code

thanks