Color and Fonts changing when worksheet is pulled into active workbook

[rikvny02]

The macro below pulls a worksheet from a folder and places it within my active workbook. Oddly when this happens FONTS and COLORS change for no reason. Can anyone think of why this is happening?




Sub copy_worksheet_para()

Application.ScreenUpdating = False
Dim wbk1 As Workbook, wbk2 As Workbook

'add your own file path
fileStr = "s:\payroll\time\daily info.xlsm"

Set wbk1 = ActiveWorkbook
Set wbk2 = Workbooks.Add(fileStr)


wbk2.Sheets("daily info").Copy after:=wbk1.Sheets(2)
wbk2.Close SaveChanges:=False

End Sub

 

[Joe4]

Does the workbook you are copying the information into contain any Conditional Formatting, or any other VBA code?
Or does it use a font which is not available in the workbook you are copying into?

 

[rikvny02]

Does the workbook you are copying the information into contain any Conditional Formatting, or any other VBA code?
Or does it use a font which is not available in the workbook you are copying into

The workbook does contain conditional formatting and also VBA. Its just weird because this just started happening recently. I have an almost exact copy of the transferring file and that copy keeps its format without fail.

 

[Joe4]

In the workbook where it is changing, check the Conditional Formatting of those cells, as well as the automated VBA code in the ThisWorkbook and Sheet modules.

 

[rikvny02]

In the workbook where it is changing, check the Conditional Formatting of those cells, as well as the automated VBA code in the ThisWorkbook and Sheet modules.

looks as if another employee has changed the Table format throughout the workbook and this is causing the issue. Thanks for your help.

 

[Joe4]

You are welcome.