"Compile error" Syntoax Error" Please help

[misterno]

This code stops at the bolded line

The error says "Compile error" Syntoax Error"

Please help

Thanks

----------------------------


Sub SaveDailySummary()
Dim mydate As Date
Dim myhalfday As String
mydate = Sheets("TheICE").Range("B2").Value
myhalfday = Sheets("Daily Summary").Range("J2").Value

Sheets("Daily Summary").Activate
Sheets("Daily Summary").Copy
Cells.Select
Selection.Copy
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

ActiveWorkbook.SaveAs Filename:= _
"M:\dept\SLNGNA\Gas LPM\Structuring\Price Curves\Commercial Curves\GSGNA Commercial Curves Indication\Daily sheets\" & "GSGNA Commercial Curves Indication_" & VBA.Format(mydate, "MMDDYYYY") & "_" & myhalfday & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close


Sheets(Array("TheICE", "Foward Cube", "ICE raw data_previous")).Select

ChDir _
"M:\dept\SLNGNA\Gas LPM\Structuring\Price Curves\Commercial Curves\GSGNA Commercial Curves Indication\Daily PDF"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"M:\dept\SLNGNA\Gas LPM\Structuring\Price Curves\Commercial Curves\GSGNA Commercial Curves Indication\Daily PDF\" & "GSGNA Commercial Curves Indication_" & VBA.Format(mydate, "MMDDYYYY") & "_" & myhalfday & ".pdf"
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Sheets("Daily Summary").Select
Sheets("TheICE").Select
End Sub

 

[JoeMo]

Change this:
"MMDDYYYY") & "_" & myhalfday & ".pdf"
to this:
"MMDDYYYY") & "_" & myhalfday & ".pdf" _

 

[misterno]

Change this:
"MMDDYYYY") & "_" & myhalfday & ".pdf"
to this:
"MMDDYYYY") & "_" & myhalfday & ".pdf" _

I did that and now the beow bolded line gives the same error

Please help
------------------
Sub SaveDailySummary()
Dim mydate As Date
Dim myhalfday As String
mydate = Sheets("TheICE").Range("B2").Value
myhalfday = Sheets("Daily Summary").Range("J2").Value

Sheets("Daily Summary").Activate
Sheets("Daily Summary").Copy
Cells.Select
Selection.Copy
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

ActiveWorkbook.SaveAs Filename:= _
"M:\dept\SLNGNA\Gas LPM\Structuring\Price Curves\Commercial Curves\GSGNA Commercial Curves Indication\Daily sheets\" & "GSGNA Commercial Curves Indication_" & <ACRONYM title="visual basic for applications">VBA</ACRONYM>.Format(mydate, "MMDDYYYY") & "_" & myhalfday & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close


Sheets(Array("TheICE", "Foward Cube", "ICE raw data_previous")).Select

ChDir _
"M:\dept\SLNGNA\Gas LPM\Structuring\Price Curves\Commercial Curves\GSGNA Commercial Curves Indication\Daily PDF"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"M:\dept\SLNGNA\Gas LPM\Structuring\Price Curves\Commercial Curves\GSGNA Commercial Curves Indication\Daily PDF\" & "GSGNA Commercial Curves Indication_" & <ACRONYM title="visual basic for applications">VBA</ACRONYM>.Format(mydate, "MMDDYYYY") & "_" & myhalfday & ".pdf"_
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Sheets("Daily Summary").Select
Sheets("TheICE").Select
End Sub

 

[JoeMo]

You need to post using code tags so line continuations can be discerned. You need a space followed by an underscore to mark every line continuation.

 

[misterno]

You need to post using code tags so line continuations can be discerned. You need a space followed by an underscore to mark every line continuation.

I am sorry I don't know how to post using code tags. Can you please show me?

 

[JoeMo]

Before the first line of your code enter the word code surrounded with square brackets [] and after the last line of your code enter /code surrounded with square brackets.

 

[misterno]

Ok thanks

Here you go

It still stops at the bolded line

Please help

Sub SaveDailySummary()
Dim mydate As Date
Dim myhalfday As String
mydate = Sheets("TheICE").Range("B2").Value
myhalfday = Sheets("Daily Summary").Range("J2").Value

Sheets("Daily Summary").Activate
Sheets("Daily Summary").Copy
Cells.Select
Selection.Copy
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

ActiveWorkbook.SaveAs Filename:= _
"M:\dept\SLNGNA\Gas LPM\Structuring\Price Curves\Commercial Curves\GSGNA Commercial Curves Indication\Daily sheets\" & "GSGNA Commercial Curves Indication_" & VBA.Format(mydate, "MMDDYYYY") & "_" & myhalfday & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close


Sheets(Array("TheICE", "Foward Cube", "ICE raw data_previous")).Select

ChDir _
"M:\dept\SLNGNA\Gas LPM\Structuring\Price Curves\Commercial Curves\GSGNA Commercial Curves Indication\Daily PDF"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"M:\dept\SLNGNA\Gas LPM\Structuring\Price Curves\Commercial Curves\GSGNA Commercial Curves Indication\Daily PDF\" & "GSGNA Commercial Curves Indication_" & VBA.Format(mydate, "MMDDYYYY") & "_" & myhalfday & ".pdf"_
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas
:=False, OpenAfterPublish:=False
Sheets("Daily Summary").Select
Sheets("TheICE").Select
End Sub

 

[JoeMo]

You need to put the word "code" (w/o the quotes) inside those square brackets.

 

[misterno]

You need to put the word "code" (w/o the quotes) inside those square brackets.

I think it is working fine now.

let me know

I still need help

 

[shg]

myhalfday & ".pdf"_

A line continuation is a SPACE followed by an underscore:

myhalfday & ".pdf" _