VBA if statement to show msgbox and exit

I need to check if cell A2 is empty, and if so, show msgbox, show Sheet ("Detail") and exit all code.
The entire code if farther below.
I am getting error

If A2 = "" Then
MsgBox = "No data meets minimum deficit weight."
Detail.Activate
End
End If

Select allOpen in new window

Sub FORMATREPORT()

Dim rng As Range
Dim LastRow As Long

If A2 = "" Then
MsgBox = "No data meets minimum deficit weight."
Detail.Activate
End
End If



Application.ScreenUpdating = False
        Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
        
    Range("A1:L1").Select
    Selection.Font.Bold = True
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
Set rng = Application.Intersect(ActiveSheet.UsedRange, Range("A:L"))
rng.SpecialCells(xlCellTypeVisible).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Columns("J:J").Select
    Selection.Style = "Comma"
    Selection.NumberFormat = "#,##0"
    Columns("K:K").Select
    Selection.Style = "Currency"
    Columns("L:L").Select
    Selection.Style = "Currency"
    Columns("I:I").Select
    Selection.Style = "Comma"
    Selection.NumberFormat = "_(* #,##0.0_);_(* (#,##0.0);_(* ""-""??_);_(@_)"
    Selection.NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""??_);_(@_)"
    Columns("A:A").Select
    Selection.NumberFormat = "mm-dd-yyyy"

Columns("A:L").Select
Selection.EntireColumn.AutoFit

LastRow = Cells(Cells.Rows.Count, "J").End(xlUp).Row + 1
Range("K" & LastRow).Formula = "=SUM(K2:K" & LastRow - 1 & ")"
Range("L" & LastRow).Formula = "=SUM(L2:L" & LastRow - 1 & ")"





Application.ScreenUpdating = True
End Sub

Select allOpen in new window