Email to attach file but to exit sub if Rage G1 = 0

[howard]

I have the following code below which attaches the specified sheet

However where G1 on the specified sheet is 0, then the macro to exit, otherwise attach sheet

when running the macro an where G1 is zero , the sheet is being generated, which it must not be generated

It would be if someone could kindly check my Macro and amend

Sub Email_Report()[/TD] [/TR] [TR] [TD][/TD] [/TR] [TR] [TD]Dim File As String, strBody As String[/TD] [/TR] [TR] [TD]Application.ScreenUpdating = False[/TD] [/TR] [TR] [TD]Application.DisplayAlerts = False[/TD] [/TR] [TR] [TD][/TD] [/TR] [TR] [TD]File = Environ$("temp") & "\" & Format(Range("Q2"), "mmm-yy ") & Format(Now, "dd-mmm-yy h-mm-ss") & ".xlsx"[/TD] [/TR] [TR] [TD]strBody = "Hi " & Sheets("BR1").Range("S2") & vbNewLine & vbNewLine & _[/TD] [/TR] [TR] [TD]"Attached, please find " & Sheets("BR1").Range("A1") & vbNewLine & vbNewLine & _[/TD] [/TR] [TR] [TD]"Please email me your sales report by department" & vbNewLine & vbNewLine & _[/TD] [/TR] [TR] [TD]"Regards" & vbNewLine & vbNewLine & _[/TD] [/TR] [TR] [TD]"Howard"[/TD] [/TR] [TR] [TD]ActiveWorkbook.Save[/TD] [/TR] [TR] [TD][/TD] [/TR] [TR] [TD]Sheets("BR1").Copy[/TD] [/TR] [TR] [TD]With ActiveWorkbook[/TD] [/TR] [TR] [TD]If Range("g1") = 0 Then[/TD] [/TR] [TR] [TD]Exit Sub[/TD] [/TR] [TR] [TD]ActiveWorkbook.Close[/TD] [/TR] [TR] [TD][/TD] [/TR] [TR] [TD]Else[/TD] [/TR] [TR] [TD]End If[/TD] [/TR] [TR] [TD][/TD] [/TR] [TR] [TD].SaveAs Filename:=File, FileFormat:=51[/TD] [/TR] [TR] [TD].Close savechanges:=False[/TD] [/TR] [TR] [TD]End With[/TD] [/TR] [TR] [TD]With CreateObject("Outlook.Application").CreateItem(0)[/TD] [/TR] [TR] [TD].Display[/TD] [/TR] [TR] [TD].to = Join(Application.Transpose(Sheets("BR1").Range("R2:R5").Value), ";")[/TD] [/TR] [TR] [TD].Subject = Sheets("BR1").Range("A1")[/TD] [/TR] [TR] [TD].body = strBody[/TD] [/TR] [TR] [TD].Attachments.Add File[/TD] [/TR] [TR] [TD]'.Send[/TD] [/TR] [TR] [TD]End With[/TD] [/TR] [TR] [TD]Kill File[/TD] [/TR] [TR] [TD]Application.ScreenUpdating = True[/TD] [/TR] [TR] [TD]Application.DisplayAlerts = True[/TD] [/TR] [TR] [TD]End Sub

 

[howard]

Problem resolved

 With Sheets("BR1")
    If .Range("G1") = 0 Then
    Exit Sub
     Else
     End If
       end With