VBA EXPERTS: Refreshing a connection

[bamaisgreat]

I have a computer that is wireless I have a simple save macro below that I use. The problem I have is sometimes the network connection needs refreshed before the macro will work. Could some one help me modify the code below to do this. The network drive is "H:\Burney Table\Tester\Operators Form\Tester.xls"

Sub save()
    ActiveSheet.Unprotect
Dim cell As Range
    Application.EnableEvents = False
    For Each cell In Range("A4:E22")
        If Not cell.HasFormula Then
            cell.Value = UCase(cell.Value)
        End If
    Next cell
    
     Application.EnableEvents = True
    
     For Each cell In Range("G4:K22")
        If Not cell.HasFormula Then
            cell.Value = UCase(cell.Value)
        End If
    Next cell
    
    
    
    Range("h4").Select
    ActiveSheet.Protect
    ActiveWorkbook.Save
End Sub