Hey everyone,
I have been working with making workbooks visible and invisible. I have 1 small problem remaining. The code below works, accept for "Windows(ThisWorkbook.Name).Visible = False".
The copy and paste completes and then it does nothing. Im not sure what is preventing the last line from working, but if i run this line independent outside of the macro below, it works fine. Something within the macro below seems to be stopping it but im not sure what.
Any ideas?
I have been working with making workbooks visible and invisible. I have 1 small problem remaining. The code below works, accept for "Windows(ThisWorkbook.Name).Visible = False".
The copy and paste completes and then it does nothing. Im not sure what is preventing the last line from working, but if i run this line independent outside of the macro below, it works fine. Something within the macro below seems to be stopping it but im not sure what.
Any ideas?
Code:
Sub AddCustomerRecord()
Application.ScreenUpdating = False
Range("A9").EntireRow.Insert
Range("C3:AA3").Select
Selection.Copy
Range("C9").Select
Selection.PasteSpecial xlPasteValues
Selection.PasteSpecial xlPasteFormats
ActiveWorkbook.Save
Call border
Application.ScreenUpdating = True
Windows(ThisWorkbook.Name).Visible = False
END SUB
Last edited: