davidsharpe
New Member
- Joined
- Sep 26, 2015
- Messages
- 2
[SIZE=+1]I have a working project (a number of subs in 500+ lines of code in one module) [/SIZE][SIZE=+1]but there is something weird. One of the subs is not displayed in the dialog that [/SIZE][SIZE=+1]pops up when (tools ->macro -> macros).
1)I initially [/SIZE][SIZE=+1]thought that the naming [/SIZE][SIZE=+1]was a problem[/SIZE] [SIZE=+1][/SIZE]
[SIZE=+1]"Sub E_Save_Excel_As_PDF(theLabel As String)" [/SIZE][SIZE=+1]; but renaming
[/SIZE]
[SIZE=+1]"Sub F(theLabel As String)" changed nothing.[/SIZE]
[SIZE=+1]2)I created a new .xlsm.[/SIZE]
[SIZE=+1]I just added a module and only included my sub in it.[/SIZE]
[SIZE=+1]Any guidance would be appreciated; here is the coding for the Sub
[/SIZE]
[SIZE=+1]++++++++++++++++++++++++
[/SIZE]
[SIZE=+1]Sub F(theLabel As String)
'Sub E_Save_Excel_As_PDF(theLabel As String)
Dim FileNameToUse As String
FileNameToUse = "D:\HUMANA\Humana-GO365\Summary_Reports"
FileNameToUse = FileNameToUse & theLabel & ".pdf"
Sheets("Summaries").Range("E1:J27").ExportAsFixedFormat _
Filename:=FileNameToUse, _
Type:=x1TypePDF
Sheets("diariesXXX").Activate
End Sub[/SIZE]
[SIZE=+1]++++++++++++++++++++++++++++++++++
[/SIZE]
[SIZE=+1]Thanks[/SIZE]
[SIZE=+1]Dave[/SIZE]
1)I initially [/SIZE][SIZE=+1]thought that the naming [/SIZE][SIZE=+1]was a problem[/SIZE] [SIZE=+1][/SIZE]
[SIZE=+1]"Sub E_Save_Excel_As_PDF(theLabel As String)" [/SIZE][SIZE=+1]; but renaming
[/SIZE]
[SIZE=+1]"Sub F(theLabel As String)" changed nothing.[/SIZE]
[SIZE=+1]2)I created a new .xlsm.[/SIZE]
[SIZE=+1]I just added a module and only included my sub in it.[/SIZE]
[SIZE=+1]Any guidance would be appreciated; here is the coding for the Sub
[/SIZE]
[SIZE=+1]++++++++++++++++++++++++
[/SIZE]
[SIZE=+1]Sub F(theLabel As String)
'Sub E_Save_Excel_As_PDF(theLabel As String)
Dim FileNameToUse As String
FileNameToUse = "D:\HUMANA\Humana-GO365\Summary_Reports"
FileNameToUse = FileNameToUse & theLabel & ".pdf"
Sheets("Summaries").Range("E1:J27").ExportAsFixedFormat _
Filename:=FileNameToUse, _
Type:=x1TypePDF
Sheets("diariesXXX").Activate
End Sub[/SIZE]
[SIZE=+1]++++++++++++++++++++++++++++++++++
[/SIZE]
[SIZE=+1]Thanks[/SIZE]
[SIZE=+1]Dave[/SIZE]