On Error Message skip problem.

[ljubo_gr]

Hello, dear MrExcel!

I have problem with error message, it shows whether or not is error, how to fix it?
Thank you for your time, thanks in advance kind people!

Sub Ispis_Izvještaja()
        Dim DP As Dialog
        On Error GoTo Greh
        Application.ScreenUpdating = False
        Set DP = Application.Dialogs(xlDialogPrinterSetup)
        With DP
            If .Show = -1 Then
                ThisWorkbook.Worksheets("List1").Range("d1").PrintOut Preview:=False
                ThisWorkbook.Worksheets("Visine").Range("H1").Select
            Else
                Exit Sub
            End If
        End With
        Exit Sub
Greh:
    MsgBox "NIJE IZAŠLO! PROVJERI PRINTER!"
End Sub

 

[RoryA]

There must be an error if you see the message. Probably because you try to select a range on Visine without selecting that sheet first. Try changing this line:

ThisWorkbook.Worksheets("Visine").Range("H1").Select

to this:

Application.Goto ThisWorkbook.Worksheets("Visine").Range("H1")

 

[ljubo_gr]

THANKS RORY!!
Actually, me dumb! Visine is from another workbook, i did.t notice! Sorry. Can you help me, after running code excel turns Calculation to manual inside wbook, I checked Application.Calculation = xlCalculationManual, this i have at beggining and at end of code. Maybe, before running excel is set to manual and after my code is again manual??