Code showing sheet 1 and 2 when executed problem

[bamaisgreat]

Thanks for looking at my post.

I have had issues with this for sometime and I really cant pinpoint when exactly it happens. I do know that it sometimes happens when running the code below. When switching form sht to sht as shown below it will show a partial view of the other sheet. You can simply scroll most of the time and it will go away. Does anyone else know what Im talking about or have a possible solution.

One more thing. I can open the workbook on other computers and it may or may not do this.

Sub switch_to_job()


    Sheets("Job Cutting Form").Visible = True
    Sheets("Job Cutting Form").Select
    Sheets("STOCK CUTTING FORM").Visible = False
    ActiveWorkbook.Save


End Sub
Sub switch_stock_Form()


    Sheets("STOCK CUTTING FORM").Visible = True
    Sheets("STOCK CUTTING FORM").Select
    Sheets("Job Cutting Form").Visible = False
    ActiveWorkbook.Save


End Sub

 

[DanteAmor]

Does it send you an error message?

 

[bamaisgreat]

No error message. Just a partial image of the other sheet

 

[DanteAmor]

put the following line at the beginning of each macro

Application.screenupdating = false

 

[bamaisgreat]

before or after Sub?

 

[DanteAmor]

Sub switch_to_job()


Application.screenupdating = false


    Sheets("Job Cutting Form").Visible = True
    Sheets("Job Cutting Form").Select
    Sheets("STOCK CUTTING FORM").Visible = False
    ActiveWorkbook.Save




End Sub


Sub switch_stock_Form()


Application.screenupdating = false


    Sheets("STOCK CUTTING FORM").Visible = True
    Sheets("STOCK CUTTING FORM").Select
    Sheets("Job Cutting Form").Visible = False
    ActiveWorkbook.Save




End Sub

 

[bamaisgreat]

Perfect. Thank

 

[DanteAmor]

You're welcome.