?
Sub vbax_58311_email_based_on_condition()

    Dim i As Long, j As Long
    
    Worksheets("Emp Information").Select

    If Application.CountA(Columns(7)) > 1 Then
        Range("G2:G" & Range("A" & Rows.Count).End(xlUp).Row).Sort Key1:=Range("G2"), Order1:=xlAscending, Header:=xlYes
    Else
        MsgBox "Please enter file full names to attach to emails to each working employee."
        Exit Sub
    End If
    'to ensure there are file full names and no blank cells in col G. no need to interrupt the code and make the user do this.
    
    With CreateObject("Outlook.Application")
        For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
            If Range("C" & i).Value = "Working" Then
                With .CreateItem(olMailItem)
                    .To = Range("B" & i).Value
                    .Subject = Range("D" & i).Value
                    .Body = Range("E" & i).Value
                    If Len(Range("F" & i)) > 0 Then .Attachments.Add Range("F" & i).Value
                    For j = 2 To Range("G" & Rows.Count).End(xlUp).Row
                        .Attachments.Add Range("G" & j).Value
                    Next j
                    .Display
                End With
            End If
        Next i
    End With

End Sub