Inconsistency in export to .xlsm file using template file Works for one user, does not for another.

[gopal5879]

Hello Folks,

I have a question. I was able to export to .xlsm file using template file which works fine. We are exporting to a shared folder. For one user, the export works fine with column frozen at Column G with column A,B,C,D,E,F visible.

For another user, export does not seem to work . A,B,C,D columns are hidden. 

Not sure about the inconsistency in export behavior. The users are not computer savvy.

I am a bit confused, Can some one please direct  where to look and possible hint to resolve this inconsistency in export please?

SUB ExportToWorkSheetRevised

' on error resume next

Dim RowCount
Dim lngLstCol
Dim lngLstRow
Dim xRg
Dim xRgUni
Dim xFirstAddress
Dim xStr
Dim aCell
Dim ColumnLabel
Dim objObjectFromRows
Dim TempCreateCsvList

'Set objFso = CreateObject("Scripting.FileSystemObject")
'Set objFolder = objFso.GetFolder(excelFolder)
'


vlWorkSheetTemplDir = ActiveDocument.Variables("vWorkSheetTemplDir").GetContent.String
vlWorkSheetTemplFileName = ActiveDocument.Variables("vWorkSheetTemplFileName").GetContent.String
vTemplFileName = vlWorkSheetTemplDir &"\" & vlWorkSheetTemplFileName & ".xlsm"



vlWorkSheetDir = ActiveDocument.Variables("vWorkSheetDir").GetContent.String
vlWorkSheetFileName = ActiveDocument.Variables("vWorkSheetFileName").GetContent.String
vlFileDayAndTime =ActiveDocument.Variables("vFileDayAndTime").GetContent.String
vTgtWorkSheetFileName = vlWorkSheetDir &"\" & vlWorkSheetFileName &"_" & vlFileDayAndTime & ".xlsm"

'copy chart to clipboard
ActiveDocument.GetSheetObject("CH689").CopyTableToClipboard True
SET xlApp = CreateObject("EXCEL.APPLICATION")
'SET xlAppConfigList = CreateObject("EXCEL.APPLICATION") 'create confiration list app object

Set xlWorkbook = xlApp.Workbooks.open (vTemplFileName)

xlApp.Run "Macro2" 

xlWorkbook.SaveAs(vTgtWorkSheetFileName)
Set xlWorksheet = xlWorkbook.Worksheets(1)
xlWorksheet.Activate
xlWorksheet.Range("A1").Select
'Msgbox "Ready to Import"
xlWorkSheet.Paste xlWorksheet.Range("A1")


xlApp.Run "SetListofValues"


xlApp.Run "Macro1" ' Macro1

'xlApp.Run "Macro3" ' Macro3

xlApp.Run "Macro3"
xlWorkBook.Save
xlWorkBook.Close
xlApp.quit
xlApp = Empty
End Sub