VB Code issue

[mbergstr]

I have this code on multiple modules:
'---Get Short Filename cShortFileName = GetFileName(aSelections(General.nReqNo, 4))
'---Check for a trailing period and xls
cShortFileName = GetShortFileName(cShortFileName)
'---Set Page Setup and Print Area
InsertHeaderFooter()

The InsertHeaderFooter() function jumps to a general module and inserts a standard footer which includes cShortFileName:

.RightFooter = "&6Created On " & Now & _
iif(General.lUseFullName, " by " & cFullUserName, " (" & cFullUserName & ")") & Chr(13) & _
aSystemSettings(14, 2) & _
iif(General.lShowRequestNumber, Chr(13) & "Request # " & aRequestInfo(General.nReqNo, 1), "") & Chr(13) & _ "&7 " & cShortFileName
I use this same code for multiple modules and they work except for one. When the InsertHeaderFooter() line is executed, cShortFileName turns to blank and the footer does not include this field. I'm not sure why it works correctly for all modules except for one?

Any help would be much appreciated. Thanks!

 

[wigi]

Is it a question on VB or VBA?

 

[mbergstr]

VB

 

[wigi]

This is an Excel VBA forum, so you will need to be lucky that someone with that knowledge picks up the topic.