Sub monitoring()
If VBAProject.Arkusz12.Range("s56") <> "" Then
    Response = MsgBox("napewno chcesz przejść do arkusza monitoring?", vbInformation + _
               vbYesNo, "UWAGA !!!")
        If Response = vbYes Then
        
        End If
        
Else
    MsgBox "Brak danych." + vbNewLine + "wypełnij poprawnie pola.", vbInformation, "Uwaga"
End If
  VBAProject.Arkusz12.Activate
    
End Sub