Option Explicit

Function RowDelete(full_path As String, index_sheet As Variant, num_row As Long) As Boolean
    If Dir(full_path) = "" Then GoTo errHandler
    Dim wb As Workbook
    Dim ws As Worksheet
    On Error GoTo errHandler
    Set wb = Workbooks.Open(full_path)
    Set ws = wb.Worksheets(index_sheet)
    ws.Rows(num_row).Delete
    Set ws = Nothing
    wb.Close True
    Set wb = Nothing
    RowDelete = True
    Exit Function
errHandler:
    Set ws = Nothing
    If Not wb Is Nothing Then wb.Close (False)
    Set wb = Nothing
    RowDelete = False
End Function

Sub test()
    Application.DisplayAlerts = False
    MsgBox RowDelete("h:\name.xls",  1 ,  10 )
    Application.DisplayAlerts = True
End Sub