mark hansen
Well-known Member
- Joined
- Mar 6, 2006
- Messages
- 534
- Office Version
- 2016
- Platform
- Windows
I have a macro running out of an Instructions worksheet with the macro in a module. It does four steps:
(1) unhide a worksheet (the template)
(2) copies that worksheet
(3) hides the worksheet and
(4) selects a cell on the new worksheet where they enter the students name
So I end up on a new worksheet ready to go. The problem the text box on the and the picture from the instruction sheet is "ghosting" on the new Tab. I use the term "ghosting" because if I go to the table of contents worksheet and back to the new worksheet, the text box and picture is gone. Additionally, I am in the new worksheet, because I can type on the sheet (under the picture from the instructions page) and it work fine, except I can't see it because the picture is over it.
When running on Excel 2010 it works without problems. I use the Sub all the time. But when running on XL 2013, I get the above behavior. I have tested this on two different PCs, running Xl 2013, one has Win 7 and the second has Win10
The code is:
Any suggestions,
Thanks,
Mark
(1) unhide a worksheet (the template)
(2) copies that worksheet
(3) hides the worksheet and
(4) selects a cell on the new worksheet where they enter the students name
So I end up on a new worksheet ready to go. The problem the text box on the and the picture from the instruction sheet is "ghosting" on the new Tab. I use the term "ghosting" because if I go to the table of contents worksheet and back to the new worksheet, the text box and picture is gone. Additionally, I am in the new worksheet, because I can type on the sheet (under the picture from the instructions page) and it work fine, except I can't see it because the picture is over it.
When running on Excel 2010 it works without problems. I use the Sub all the time. But when running on XL 2013, I get the above behavior. I have tested this on two different PCs, running Xl 2013, one has Win 7 and the second has Win10
The code is:
Code:
Sub NewSheet()
'==========Create new Template worksheet============
On Error Resume Next
' Application.EnableEvents = False
With Sheet1
.Visible = xlSheetVisible
.Select
.Copy Before:=Sheets("Template")
.Visible = xlSheetHidden
End With
Worksheets("Instructions").Range("L5").Value = "In Use"
Worksheets("Table of Contents").Range("P2").Value = "Needs Updating"
Range("H2").Select
MsgBox ("Enter Student name and Grade Level Assessed")
End Sub
Any suggestions,
Thanks,
Mark