Sub DataStanu()
Dim SubProj As Subproject
Dim Statdate, AllDone

    Statdate = ActiveProject.StatusDate
    Statdate = InputBox("Makro ustawi Datę stanu z projektu głownego w podprojektach:" & vbCrLf & vbCrLf & "Projekt główny musi być aktywny. " & vbCrLf & vbCrLf & "Operacja może chwilę potrwać.", , Statdate)
    If Statdate <> "" Then
        If Not (Statdate = ActiveProject.StatusDate) Then
            ActiveProject.StatusDate = Statdate
        End If
        For Each SubProj In ActiveProject.Subprojects
            SubProj.SourceProject.StatusDate = Statdate
        Next SubProj
        AllDone = MsgBox("Data Stanu zaktualizowana w podprojektach.", vbOKOnly)
    End If
End Sub