エラーがコマンドの一部

Question

に私はIfなしElseを与えるこのコードを修正することができない場合：

Sub aRefreshData() 
If Worksheets("Control tab").Range("$I$2").Value = "OFF" Then MsgBox "Enable Connection before refresh" 
Else 
ActiveWorkbook.Connections("server DB").Refresh 
End If 
End Sub 

Answer 1

あなたが逃した "：" エルス後

Sub aRefreshData() 
If Worksheets("Control tab").Range("$I$2").Value = "OFF" Then 
    MsgBox "Enable Connection before refresh" 
Else: 
    ActiveWorkbook.Connections("server DB").Refresh 
End If 
End Sub